SURFEX  V8_0
Surfex V8_0 release
 All Classes Files Functions Variables
Functions/Subroutines
coupling_townn.F90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine coupling_town_n (DTCO, U, DTI, IG, I, DGL, DST, SLT, TM, GDM, GRM, HPROGRAM, HCOUPLING, PTIMEC, PTSTEP, KYEAR, KMONTH, KDAY, PTIME, KI, KSV, KSW, PTSUN, PZENITH, 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, PTSURF, PZ0, PZ0H, PQSURF, PPEW_A_COEF, PPEW_B_COEF, PPET_A_COEF, PPEQ_A_COEF, PPET_B_COEF, PPEQ_B_COEF, HTEST)
 

Function/Subroutine Documentation

subroutine coupling_town_n ( type(data_cover_t), intent(inout)  DTCO,
type(surf_atm_t), intent(inout)  U,
type(data_isba_t), intent(inout)  DTI,
type(isba_grid_t), intent(inout)  IG,
type(isba_t), intent(inout)  I,
type(diag_ideal_t), intent(inout)  DGL,
type(dst_t), intent(inout)  DST,
type(slt_t), intent(inout)  SLT,
type(teb_model_t), intent(inout)  TM,
type(teb_garden_model_t), intent(inout)  GDM,
type(teb_greenroof_model_t), intent(inout)  GRM,
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)  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(out)  PTSURF,
real, dimension(ki), intent(out)  PZ0,
real, dimension(ki), intent(out)  PZ0H,
real, dimension(ki), intent(out)  PQSURF,
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 6 of file coupling_townn.F90.

Here is the call graph for this function:

Here is the caller graph for this function: