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

Go to the source code of this file.

Functions/Subroutines

subroutine COUPLING_SEAWAT_SBL_n (HPROGRAM, HCOUPLING, HSURF, 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, OSBL, PSST, PZ0, PZ, PXU, KLVL, PTKE, PT, PQ, PLMO, PZF, PDZ, PDZF, PP, K2M, PT2M, PQ2M, PHU2M, PZON10M, PMER10M, PWIND10M, PWIND10M_MAX, PT2M_MIN, PT2M_MAX, PHU2M_MIN, PHU2M_MAX, 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_SEAWAT_SBL_n ( CHARACTER(LEN=6), intent(in)  HPROGRAM,
CHARACTER(LEN=1), intent(in)  HCOUPLING,
CHARACTER(LEN=1), intent(in)  HSURF,
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,
LOGICAL, intent(in)  OSBL,
REAL, dimension(ki), intent(in)  PSST,
REAL, dimension(ki), intent(inout)  PZ0,
REAL, dimension(ki,klvl), intent(inout)  PZ,
REAL, dimension(ki,klvl), intent(inout)  PXU,
INTEGER, intent(in)  KLVL,
REAL, dimension(ki,klvl), intent(inout)  PTKE,
REAL, dimension(ki,klvl), intent(inout)  PT,
REAL, dimension(ki,klvl), intent(inout)  PQ,
REAL, dimension(ki), intent(inout)  PLMO,
REAL, dimension(ki,klvl), intent(inout)  PZF,
REAL, dimension(ki,klvl), intent(inout)  PDZ,
REAL, dimension(ki,klvl), intent(inout)  PDZF,
REAL, dimension(ki,klvl), intent(inout)  PP,
INTEGER, intent(in)  K2M,
REAL, dimension(ki), intent(inout)  PT2M,
REAL, dimension(ki), intent(inout)  PQ2M,
REAL, dimension(ki), intent(inout)  PHU2M,
REAL, dimension(ki), intent(inout)  PZON10M,
REAL, dimension(ki), intent(inout)  PMER10M,
REAL, dimension(ki), intent(inout)  PWIND10M,
REAL, dimension(ki), intent(inout)  PWIND10M_MAX,
REAL, dimension(ki), intent(inout)  PT2M_MIN,
REAL, dimension(ki), intent(inout)  PT2M_MAX,
REAL, dimension(ki), intent(inout)  PHU2M_MIN,
REAL, dimension(ki), intent(inout)  PHU2M_MAX,
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_seawat_sbln.F90.

Here is the call graph for this function:

Here is the caller graph for this function: