SURFEX v7.3
General documentation of Surfex
 All Classes Files Functions Variables Typedefs
Functions/Subroutines
/home/dasprezs/EXPORT_v7_3/src/SURFEX/coupling_sean.F90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine COUPLING_SEA_n (HPROGRAM, HCOUPLING, PTIMEC, PTSTEP, KYEAR, KMONTH, KDAY, PTIME, KI, KSV, KSW, PTSUN, PZENITH, PZENITH2, PAZIM, PZREF, PUREF, PZS, PU, PV, PQA, PTA, PRHOA, PSV, PCO2, HSV, PRAIN, PSNOW, PLW, PDIR_SW, PSCA_SW, PSW_BANDS, PPS, PPA, PSFTQ, PSFTH, PSFTS, PSFCO2, PSFU, PSFV, PTRAD, PDIR_ALB, PSCA_ALB, PEMIS, PPEW_A_COEF, PPEW_B_COEF, PPET_A_COEF, PPEQ_A_COEF, PPET_B_COEF, PPEQ_B_COEF, HTEST)

Function/Subroutine Documentation

subroutine COUPLING_SEA_n ( CHARACTER(LEN=6), intent(in)  HPROGRAM,
CHARACTER(LEN=1), intent(in)  HCOUPLING,
REAL, intent(in)  PTIMEC,
REAL, intent(in)  PTSTEP,
INTEGER, intent(in)  KYEAR,
INTEGER, intent(in)  KMONTH,
INTEGER, intent(in)  KDAY,
REAL, intent(in)  PTIME,
INTEGER, intent(in)  KI,
INTEGER, intent(in)  KSV,
INTEGER, intent(in)  KSW,
REAL, dimension(ki), intent(in)  PTSUN,
REAL, dimension(ki), intent(in)  PZENITH,
REAL, dimension(ki), intent(in)  PZENITH2,
REAL, dimension(ki), intent(in)  PAZIM,
REAL, dimension(ki), intent(in)  PZREF,
REAL, dimension(ki), intent(in)  PUREF,
REAL, dimension(ki), intent(in)  PZS,
REAL, dimension(ki), intent(in)  PU,
REAL, dimension(ki), intent(in)  PV,
REAL, dimension(ki), intent(in)  PQA,
REAL, dimension(ki), intent(in)  PTA,
REAL, dimension(ki), intent(in)  PRHOA,
REAL, dimension(ki,ksv), intent(in)  PSV,
REAL, dimension(ki), intent(in)  PCO2,
CHARACTER(LEN=6), dimension(ksv), intent(in)  HSV,
REAL, dimension(ki), intent(in)  PRAIN,
REAL, dimension(ki), intent(in)  PSNOW,
REAL, dimension(ki), intent(in)  PLW,
REAL, dimension(ki,ksw), intent(in)  PDIR_SW,
REAL, dimension(ki,ksw), intent(in)  PSCA_SW,
REAL, dimension(ksw), intent(in)  PSW_BANDS,
REAL, dimension(ki), intent(in)  PPS,
REAL, dimension(ki), intent(in)  PPA,
REAL, dimension(ki), intent(out)  PSFTQ,
REAL, dimension(ki), intent(out)  PSFTH,
REAL, dimension(ki,ksv), intent(out)  PSFTS,
REAL, dimension(ki), intent(out)  PSFCO2,
REAL, dimension(ki), intent(out)  PSFU,
REAL, dimension(ki), intent(out)  PSFV,
REAL, dimension(ki), intent(out)  PTRAD,
REAL, dimension(ki,ksw), intent(out)  PDIR_ALB,
REAL, dimension(ki,ksw), intent(out)  PSCA_ALB,
REAL, dimension(ki), intent(out)  PEMIS,
REAL, dimension(ki), intent(in)  PPEW_A_COEF,
REAL, dimension(ki), intent(in)  PPEW_B_COEF,
REAL, dimension(ki), intent(in)  PPET_A_COEF,
REAL, dimension(ki), intent(in)  PPEQ_A_COEF,
REAL, dimension(ki), intent(in)  PPET_B_COEF,
REAL, dimension(ki), intent(in)  PPEQ_B_COEF,
CHARACTER(LEN=2), intent(in)  HTEST 
)

Definition at line 2 of file coupling_sean.F90.

Here is the call graph for this function:

Here is the caller graph for this function: