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

Go to the source code of this file.

Functions/Subroutines

subroutine COUPLING_IDEAL_FLUX (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, PPEW_A_COEF, PPEW_B_COEF, PPET_A_COEF, PPEQ_A_COEF, PPET_B_COEF, PPEQ_B_COEF, HTEST)
subroutine TEMP_FORC_DISTS (PTIMEIN, KFORC, PTIMES, KHOUR, PALPHA)

Function/Subroutine Documentation

subroutine COUPLING_IDEAL_FLUX ( 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(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_ideal_flux.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine COUPLING_IDEAL_FLUX::TEMP_FORC_DISTS ( REAL, intent(in)  PTIMEIN,
INTEGER, intent(in)  KFORC,
REAL, dimension(:), intent(in)  PTIMES,
INTEGER, intent(out)  KHOUR,
REAL, intent(out)  PALPHA 
)

Definition at line 303 of file coupling_ideal_flux.F90.

Here is the call graph for this function:

Here is the caller graph for this function: