SURFEX v8.1
General documentation of Surfex
Functions/Subroutines
coupling_seaflux_orogn.F90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine coupling_seaflux_orog_n (SM, DST, SLT, 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, 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

◆ coupling_seaflux_orog_n()

subroutine coupling_seaflux_orog_n ( type(seaflux_model_t), intent(inout)  SM,
type(dst_t), intent(inout)  DST,
type(slt_t), intent(inout)  SLT,
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(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 15 of file coupling_seaflux_orogn.F90.

Here is the call graph for this function:
Here is the caller graph for this function: