doxy_201512/html/yomtddh_8_f90_source.html

 MODULE yomtddh


 USE parkind1  ,ONLY : jpim     ,jprb


 IMPLICIT NONE


 SAVE


 !    TABLEAUX DE CUMUL DES DIAGNOSTICS DDH


 !      REAL HDCVB0 (NDHCV*(NFLEVG+1),NDHIDH)

 !      REAL HDCVB1 (NDHCV*(NFLEVG+1),NDHIDH)

 !      REAL HDCS0 (NDHCS,NDHIDH)

 !      REAL HDCS1 (NDHCS,NDHIDH)


 REAL(KIND=JPRB),ALLOCATABLE:: hdcvb0(:,:,:)

 REAL(KIND=JPRB),ALLOCATABLE:: hdcvb1(:,:,:)

 REAL(KIND=JPRB),ALLOCATABLE:: hdcs0(:,:,:)

 REAL(KIND=JPRB),ALLOCATABLE:: hdcs1(:,:,:)


 ! ARRAY TO SAVE INITIAL VALUES FOR FREE STYLE VARIABLES


 REAL(KIND=JPRB),ALLOCATABLE:: pddhfsvi(:)


 !    POINTEURS


 !    TABLEAUX DE CUMUL DES DIAGNOSTICS DDH

 !    --------------------------------------


 !    DHCV. : TABLEAUX DE CUMULS DES VARIABLES/FLUX EN PROFILS VERTICAUX

 !    DHCVB.: TABLEAUX DE CUMULS PAR VARIABLES/FLUX NON DECOUPES EN NIVEAUX

 !    DHCS. : TABLEAUX DE CUMULS DES VARIABLES/FLUX AU SOL


 !    ORGANISATION DES TABLEAUX:

 !       CHAMPS ATMOSPHERIQUES

 !             TABLEAUX ---0 : VARIABLES INITIALES

 !             TABLEAUX ---1 : VARIABLES A NSTEP NON FILTREES

 !             TABLEAUX ---0 : CUMULS JUSQU A NSTEP-1

 !             TABLEAUX ---1 : CUMULS JUSQU A NSTEP

 !             1 A NDHVV:                                  VARIABLES DU MODELE

 !             NDHVV+1 A NDHVV+NDHAVD:                     TENDANCES DYNAMIQUES

 !             NDHVV+NDHAVD+1 A NDHVV+NDHFVD:              FLUX DYNAMIQUES

 !             NDHVV+NDHFVD+1 A NDHVV+NDHFVD+NDHAVP:       FLUX PHYSIQUES

 !             NDHVV+NDHFVD+NDHAVP+1 A NDHCV:              TENDANCES PHYSIQUES

 !       CHAMPS SOL

 !             TABLEAUX ---0 : VARIABLES INITIALES

 !             TABLEAUX ---1 : VARIABLES A NSTEP NON FILTREES

 !             TABLEAUX ---0 : CUMULS JUSQU A NSTEP-1

 !             TABLEAUX ---1 : CUMULS JUSQU A NSTEP

 !             1 A NDHVS:                                  VARIABLES DU MODELE

 !             NDHVS+1 A NDHVS+NDHVFS:                     FREE-STYLE VARIABLES

 !             NDHVS+NDHVFS+1 A NDHVS+NDHVFS+NDHFSD:       CUMULS DYNAMIQUES

 !             NDHVS+NDHVFS+NDHFSD+1 A

 !                NDHVS+NDHVFS+NDHFSD+NDHFSP:              CUMULS PHYSIQUES

 !             NDHVS+NDHVFS+NDHFSD+NDHFSP+1 A

 !                NDHVS+NDHVFS+NDHFSD+NDHFSP+NDHFFS=NDHCS: FREE-STYLE FLUXES


 !    LA VALEUR D UN CHAMP AU NIVEAU JLEV = 0 N A DE SENS QUE POUR LES

 !    FLUX. POUR LES TENDANCES ET VARIABLES, CETTE VALEUR EST NULLE


 !    CONTENU DES TABLEAUX

 !    --------------------


 !*      1. PROFILS VERTICAUX


 !*      1.1 VARIABLES


 !       SI LHDHKS (DEBUT A L'INDICE 1)

 !  1-VPP          - MASSE D'AIR

 !  2-VQV          - MASSE DE VAPEUR D'EAU QV

 !  3-VUU          - QUANTITE DE MOUVEMENT ZONALE UZ

 !  4-VVV          - QUANTITE DE MOUVEMENT MERIDIENNE VM

 !  5-VKK          - ENERGIE CINETIQUE KENE

 !  6-VCT          - ENTHALPIE CP*T

 !  7-VEP          - ENERGIE POTENTIELLE PHI

 !  8-VHR          - HUMIDITE RELATIVE

 !  9-VQL          - MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)

 ! 10-VQN          - MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)

 ! 9+NHDQLNVA-V01  - VARIABLE PASSIVE NUMERO 01 (SI LHDPAS=.TRUE.)

 !    ...

 ! 9+NHDQLNVA+NHDPASVA-1-Vxx - VARIABLE PASSIVE NUMERO xx=NHDPASVA (SI LHDPAS=.TRUE.)

 ! 9+NHDQLNVA+NHDPASVA-VNT - NEBULOSITE TOTALE

 ! 10+NHDQLNVA+NHDPASVA-VOM - VITESSE VERTICALE EN COORDONNEE PRESSION

 !       SI LHDMCI (DEBUT A L'INDICE NDHVHK+1)

 !  1-VA1          - MOMENT ANGULAIRE A1

 !  2-VA2          - MOMENT ANGULAIRE A2

 !  3-VA3          - MOMENT ANGULAIRE A3

 !       SI LHDENT (DEBUT A L'INDICE NDHVHK+NDHVMC+1)

 !  1-VSS          - ENTROPIE: S


 !*      1.2 TENDANCES DYNAMIQUES


 !       SI LHDHKS (DEBUT A L'INDICE NDHVV+1)

 !  1-TPPDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'AIR

 !  2-TQVDIVFLUHOR - DIV. FLUX HORIZONTAL DE VAPEUR D'EAU

 !  3-TUUDIVFLUHOR - DIV. FLUX HORIZONTAL QTE DE MVT ZONALE (CALCUL PARTIEL)

 !  4-TVVDIVFLUHOR - DIV. FLUX HORIZONTAL QTE DE MVT MERIDIENNE (PARTIEL)

 !  5-TUUFFVGADPSG - QTE DE MVT AGEOSTROPHIQUE MERIDIENNE

 !  6-TVVFFVGADPSG - QTE DE MVT AGEOSTROPHIQUE ZONALE

 !  7-TKKDIVFLUHOR - DIV. FLUX HORIZONTAL ENERGIE CINETIQUE

 !  8-TKKCONVERSI1 - TRAVAIL DES FORCES DE PRESSION

 !  9-TCTDIVFLUHOR - DIV. FLUX HORIZONTAL ENTHALPIE

 ! 10-TCTCONVERSI2 - CONVERSION D'ENERGIE INTERNE

 ! 11-TCTCONVERSI3 - CONVERSION D'ENERGIE INTERNE INDUITE PAR LES PRECIPITATIONS

 ! 12-TEPDIVFLUHOR - DIV. FLUX HORIZONTAL ENERGIE POTENTIELLE

 ! 13-PPP          - MASSE D'AIR: CUMUL TEMPOREL

 ! 14-TQLDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)

 ! 15-TQNDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)

 !       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHAHKD+1)

 !  1-TA1DIVFLUHOR - MOMENT ANGULAIRE A1: DIV. FLUX HORIZONTAL

 !  2-TA2DIVFLUHOR - MOMENT ANGULAIRE A2: DIV. FLUX HORIZONTAL

 !  3-TA3DIVFLUHOR - MOMENT ANGULAIRE A3: DIV. FLUX HORIZONTAL

 !  4-TA1ADJUST    - MOMENT ANGULAIRE A1: TERME D'AJUSTEMENT

 !  5-TA2ADJUST    - MOMENT ANGULAIRE A2: TERME D'AJUSTEMENT

 !  6-TA3ADJUST    - MOMENT ANGULAIRE A3: TERME D'AJUSTEMENT

 !  7-TA1NONAX     - MOMENT ANGULAIRE A1: MOMENT NON AXIAL

 !  8-TA2NONAX     - MOMENT ANGULAIRE A2: MOMENT NON AXIAL

 !       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHAHKD+NDHAMCD+1)

 !  1-TSSDIVFLUHOR - ENTROPIE: DIV. FLUX HORIZONTAL

 !  2-TSSPRECICT   - ENTROPIE: EFFET PRECIPITATIONS SUR ENTHALPIE


 !*      1.3 FLUX DYNAMIQUES


 !       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHAVD+1)

 !  1-FPPFLUVERTDYN- VERTICAL DE MASSE D'AIR

 !  2-FQVFLUVERTDYN- VERTICAL DE VAPEUR D'EAU

 !  3-FUUFLUVERTDYN- VERTICAL DE QTE DE MVT ZONALE

 !  4-FVVFLUVERTDYN- VERTICAL DE QTE DE MVT MERIDIENNE

 !  5-FUUFLUDUAPLUI- QTE DE MVT ZONALE TRANSPORTEE PAR PRECIPITATIONS

 !  6-FVVFLUDUAPLUI- QTE DE MVT MERIDIENNE TRANSPORTEE PAR PRECIPITATIONS

 !  7-FKKFLUVERTDYN- VERTICAL D'ENERGIE CINETIQUE

 !  8-FKKFLUDUAPLUI- ENERGIE CINETIQUE TRANSPORTEE PAR PRECIPITATIONS

 !  9-FCTFLUVERTDYN- VERTICAL D'ENTHALPIE

 ! 10-FEPCONVERSIFL- PSEUDO VERTICAL D'ENERGIE POTENTIELLE

 ! 11-FQLFLUVERTDYN- VERTICAL DE MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)

 ! 12-FQNFLUVERTDYN- VERTICAL DE MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)

 !       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHAVD+NDHBHKD+1)

 !  1-FA1FLUVERTDYN- MOMENT ANGULAIRE A1: FLUX VERTICAL DYNAMIQUE

 !  2-FA2FLUVERTDYN- MOMENT ANGULAIRE A2: FLUX VERTICAL DYNAMIQUE

 !  3-FA3FLUVERTDYN- MOMENT ANGULAIRE A3: FLUX VERTICAL DYNAMIQUE

 !  4-FA1GRAV      - MOMENT ANGULAIRE A1: FORCE DE GRAVITE

 !  5-FA2GRAV      - MOMENT ANGULAIRE A2: FORCE DE GRAVITE

 !  6-FA3GRAV      - MOMENT ANGULAIRE A3: FORCE DE GRAVITE

 !  7-FA1FLUDUAPLUI- MOMENT ANGULAIRE A1: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)

 !  8-FA2FLUDUAPLUI- MOMENT ANGULAIRE A2: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)

 !  9-FA3FLUDUAPLUI- MOMENT ANGULAIRE A3: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)

 !       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHAVD+NDHBHKD+NDHBMCD+1)

 !  1-FSSFLUVERTDYN-  ENTROPIE: FLUX VERTICAL DYNAMIQUE

 !  2-FSSPRECISS   -  ENTROPIE: EFFET DIRECT DES PRECIPITATIONS


 !*      1.4 FLUX PHYSIQUES


 !       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHFVD+1)

 !  1-FPPSUMFPL    - TOTAL DE PRECIPITATION, PERTE DE MASSE D'AIR

 !  2-FQVTUR       - TURBULENT DE VAPEUR D'EAU

 !  3-FQVTURCONV   - TURBULENT DE VAPEUR D'EAU DU A LA CONVECTION

 !  4-FQVPRECISTL  - DE PRECIPITATION STRATIFORME LIQUIDE

 !  5-FQVPRECISTN  - DE PRECIPITATION STRATIFORME NEIGEUSE

 !  6-FQVPRECICOL  - DE PRECIPITATION CONVECTIVE LIQUIDE

 !  7-FQVPRECICON  - DE PRECIPITATION CONVECTIVE NEIGEUSE

 !  8-FQVTURQNEGAT - DE VAPEUR D'EAU COMPENSANT LES VALEURS < 0

 !  9-FUUTUR       - TURBULENT DE QTE DE MVT ZONALE

 ! 10-FVVTUR       - TURBULENT DE QTE DE MVT MERIDIENNE

 ! 11-FUUTURCONV   - TURBULENT DE QTE DE MVT ZONALE DU A LA CONVECTION

 ! 12-FVVTURCONV   - TURBULENT DE QTE DE MVT ZONALE DU A LA CONVECTION

 ! 13-FUUONDEGREL  - TURBULENT DE QTE DE MVT MERIDIENNE DU AUX ONDES OROGRAPHIQUES

 ! 14-FUUONDEGREL  - TURBULENT DE QTE DE MVT MERIDIENNE DU AUX ONDES OROGRAPHIQUES

 ! 15-FCTTUR       - TURBULENT SEC D'ENTHALPIE

 ! 16-FCTTURCONV   - TURBULENT CONVECTIF D'ENTHALPIE

 ! 17-FCTRAYSOL1   - DE RAYONNEMENT SOLAIRE

 ! 18-FCTRAYTER1   - DE RAYONNEMENT THERMIQUE

 ! 19-FCTPRECISTL  - D'ENTHALPIE DU AUX PRECIPITATIONS STRATIFORMES LIQUIDES

 ! 20-FCTPRECISTN  - D'ENTHALPIE DU AUX PRECIPITATIONS STRATIFORMES NEIGEUSES

 ! 21-FCTPRECICOL  - D'ENTHALPIE DU AUX PRECIPITATIONS CONVECTIVES LIQUIDES

 ! 22-FCTPRECICON  - D'ENTHALPIE DU AUX PRECIPITATIONS CONVECTIVES NEIGEUSES

 ! 23-FCTPRECCSCOL - DE CHAL. SENS. DU AUX PRECIPITATIONS CONVECTIVES LIQUIDES

 ! 24-FCTPRECCSCON - DE CHAL. SENS. DU AUX PRECIPITATIONS CONVECTIVES NEIGEUSES

 ! 25-FCTPRECCSSTL - DE CHAL. SENS. DU AUX PRECIPITATIONS STRATIFORMES LIQUIDES

 ! 26-FCTPRECCSSTN - DE CHAL. SENS. DU AUX PRECIPITATIONS STRATIFORMES NEIGEUSES

 ! 27-FQLTUR       - TURBULENT D'EAU LIQUIDE (SI LHDQLN=.TRUE.)

 ! 28-FQNTUR       - TURBULENT D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)

 ! 29-FQLTURCONV   - TURBULENT D'EAU LIQUIDE DU A LA CONVECTION (SI LHDQLN=.TRUE.)

 ! 30-FQNTURCONV   - TURBULENT D'EAU NEIGEUSE DU A LA CONVECTION (SI LHDQLN=.TRUE.)

 ! 31-FQLTURQNEGAT - D'EAU LIQUIDE COMPENSANT LES VALEURS < 0 (SI LHDQLN=.TRUE.)

 ! 32-FQNTURQNEGAT - D'EAU NEIGEUSE COMPENSANT LES VALEURS < 0 (SI LHDQLN=.TRUE.)

 ! 33-FQTCONDECOL  - DE CONDENSATION CONVECTIVE LIQUIDE (SI LHDQLN=.TRUE.)

 ! 34-FQTCONDECON  - DE CONDENSATION CONVECTIVE NEIGEUSE (SI LHDQLN=.TRUE.)

 ! 35-FQTCONDESTL  - DE CONDENSATION STRATIFORME LIQUIDE (SI LHDQLN=.TRUE.)

 ! 36-FQTCONDESTN  - DE CONDENSATION STRATIFORME NEIGEUSE (SI LHDQLN=.TRUE.)

 !       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAHKP+1)

 !  1-FA1TUR       - MOMENT ANGULAIRE A1: DIFFUSION VERTICALE

 !  2-FA2TUR       - MOMENT ANGULAIRE A2: DIFFUSION VERTICALE

 !  3-FA3TUR       - MOMENT ANGULAIRE A3: DIFFUSION VERTICALE

 !  4-FA1TURCONV   - MOMENT ANGULAIRE A1: PROCESSUS CONVECTIFS TURBULENTS

 !  5-FA2TURCONV   - MOMENT ANGULAIRE A2: PROCESSUS CONVECTIFS TURBULENTS

 !  6-FA3TURCONV   - MOMENT ANGULAIRE A3: PROCESSUS CONVECTIFS TURBULENTS

 !  7-FA1ONDEGREL  - MOMENT ANGULAIRE A1: ONDES DE GRAVITE OROGRAPHIQUES

 !  8-FA2ONDEGREL  - MOMENT ANGULAIRE A2: ONDES DE GRAVITE OROGRAPHIQUES

 !  9-FA3ONDEGREL  - MOMENT ANGULAIRE A3: ONDES DE GRAVITE OROGRAPHIQUES

 !       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAHKP+NDHAMCP+1)


 !*      1.5 TENDANCES PHYSIQUES


 !       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+1)

 !  1-TKKDISSIPTUR - DISSIPATION DUE A LA TURBULENCE SECHE

 !  2-TKKDISSIPCONV- DISSIPATION DUE A LA CONVECTION

 !  3-TKKDISSIPGREL- DISSIPATION DUE AUX ONDES DE GRAVITE INDUITES PAR LE RELIEF

 !  4-TQVFORMPSTL  - FORMATION DE PLUIE STRATIFORME (SI LHDADD=.TRUE.)

 !  5-TCTFORMPSTL  - VARIATION D'ENTHALPIE FORMATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)

 !  6-TQVEVAPPSTL  - EVAPORATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)

 !  7-TCTEVAPPSTL  - VARIATION D'ENTHALPIE EVAPORATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)

 !  8-TQVFORMPSTN  - FORMATION DE NEIGE STRATIFORME (SI LHDADD=.TRUE.)

 !  9-TCTFORMPSTN  - VARIATION D'ENTHALPIE FORMATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)

 ! 10-TQVEVAPPSTN  - EVAPORATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)

 ! 11-TCTEVAPPSTN  - VARIATION D'ENTHALPIE EVAPORATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)

 ! 12-TQVFONTPST   - FONTE DE NEIGE EN PLUIE STRATIFORME (SI LHDADD=.TRUE.)

 ! 13-TCTFONTPST   - VARIATION D'ENTHALPIE FONTE DE NEIGE STRATIFORME (SI LHDADD=.TRUE.)

 ! 14-TQVFORMPCOL  - FORMATION DE PLUIE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 15-TCTFORMPCOL  - VARIATION D'ENTHALPIE FORMATION PLUIE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 16-TQVEVAPPCOL  - EVAPORATION DE PLUIE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 17-TCTEVAPPCOL  - VARIATION D'ENTHALPIE EVAPORATION PLUIE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 18-TQVFORMPCON  - FORMATION DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 19-TCTFORMPCON  - VARIATION D'ENTHALPIE FORMATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 20-TQVEVAPPCON  - EVAPORATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 21-TCTEVAPPCON  - VARIATION D'ENTHALPIE EVAPORATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 22-TQVFONTPCO   - FONTE DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)

 ! 23-TCTFONTPCO   - VARIATION D'ENTHALPIE FONTE DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)

 !       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+NDHBHKP+1)

 !       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+NDHBHKP+NDHBMCP+1)

 !  1-TSSDISSIPTUR - ENTROPIE: DISSIPATION DUE AUX PROCESSUS TURBULENTS SECS

 !                              TURBULENT DISSIPATION OF ENERGY

 !  2-TSSDISSIPCONV- ENTROPIE: DISSIPATION DUE AUX PROCESSUS TURBULENTS CONVECTIFS

 !                              CONVECTIVE DISSIPATION OF ENERGY

 !  3-TSSDISSIPGREL- ENTROPIE: DISSIPATION DUE AUX ONDES DE RELIEF

 !                              GRAVITY WAVE DRAG DISSIP. OF ENERGY

 !  4-TSSTURQVTOT  - ENTROPIE: PROCESSUS TURBULENTS SUR LA VAPEUR D'EAU

 !                              DIFFUSION OF HUMIDITY

 !  5-TSSRAY1      - ENTROPIE: EFFET DU RAYONNEMENT

 !                              RADIATION

 !  6-TSSTURCTTOT  - ENTROPIE: PROCESSUS TURBULENTS SUR L'ENTHALPIE

 !                              DIFFUSION OF ENTHALPY


 !*      2. VARIABLES AU SOL


 !*      2.1 VARIABLES

 !       SUR LES POINTS TERRE UNIQUEMENT


 !       SI LHDHKS

 !  1-S V          - SURFACE DE TERRE DU DOMAINE (MOYENNE PONDEREE DES PITM)

 !  2-S V          - ENERGIE COUCHE SURFACE

 !  3-S V          - ENERGIE COUCHE PROFONDE

 !  4-S V          - HAUTEUR D'EAU COUCHE SURFACE

 !  5-S V          - HAUTEUR D'EAU COUCHE PROFONDE

 !  6-S V          - HAUTEUR DE NEIGE COUCHE SURFACE

 !       SI LHDMCI

 !       SI LHDENT


 !*      2.1a FREE-STYLE VARIABLES

 !       (NOTE: VALID OVER LAND AND SEA)


 !       IF LHDHKS.AND.LECMWF

 !  1-SVGFS        - 2-METRE TEMPERATURE

 !  2-SVGFS        - 2-METRE DEWPOINT

 !  3-SVGFS        - 10-METRE U-COMPONENT

 !  4-SVGFS        - 10-METRE V-COMPONENT

 !  5-SVGFS        - SKIN TEMPERATURE

 !  6-SVGFS        - FORECAST SURFACE ROUGHNESS

 !  7-SVGFS        - FORECAST SURFACE ROUGHNESS FOR HEAT

 !  8-SVGFS        - FORECAST ALBEDO

 !       IF LHDMCI

 !       IF LHDENT


 !*      2.2 TENDANCES/FLUX DYNAMIQUES

 !       SUR LES POINTS TERRE UNIQUEMENT


 !       SI LHDHKS

 !       SI LHDMCI

 !       SI LHDENT


 !*      2.3 TENDANCES/FLUX PHYSIQUES

 !       SUR LES POINTS TERRE UNIQUEMENT


 !       IF LHDHKS

 !  1-S FVRAC      - FLUX DE RAYONNEMENT SOLAIRE NET (GAIN ALGEBRIQUE POUR LA COUCHE S)

 !  2-S FVRAC      - FLUX DE RAYONNEMENT THERMIQUE NET

 !  3-S FVRAC      - FLUX DE CHALEUR LATENTE, EVAPORATION DE LIQUIDE

 !  4-S FVRAC      - FLUX DE CHALEUR LATENTE, EVAPORATION DE NEIGE

 !  5-S FVRAC      - FLUX DE CHALEUR SENSIBLE

 !  6-S FVRAC      - FLUX DE CHALEUR VERS SOL PROFOND (GAIN ALGEBRIQUE POUR COUCHE P)

 !  7-S FVRAC      - FLUX DE CHALEUR RESULTANT DE LA FONTE DE NEIGE (COUCHE S)

 !  8-S FVRAC      - FLUX DE PRECIPITATIONS STRATIFORMES LIQUIDES (GAIN POUR LA COUCHE S)

 !  9-S FVRAC      - FLUX DE PRECIPITATIONS STRATIFORMES NEIGEUSES

 ! 10-S FVRAC      - FLUX DE PRECIPITATIONS CONVECTIVES LIQUIDES

 ! 11-S FVRAC      - FLUX DE PRECIPITATIONS CONVECTIVES NEIGEUSES

 ! 12-S FVRAC      - FLUX D'EVAPORATION DE LIQUIDE

 ! 13-S FVRAC      - FLUX D'EVAPORATION DE NEIGE

 ! 14-S FVRAC      - FLUX D'EAU VERS LA COUCHE PROFONDE (GAIN POUR COUCHE P)

 ! 15-S FVRAC      - FLUX NEIGE VERS LIQUIDE (FONTE EN SURFACE, COUCHE S)

 ! 16-S FVRAC      - TROP-PLEIN EN SURFACE (RUISSELLEMENT, PERDU)

 ! 17-S FVRAC      - TROP-PLEIN EN PROFONDEUR (PERDU)

 !       IF LHDMCI

 !       IF LHDENT


 !*      2.3a FREE-STYLE FLUXES

 !       (NOTE: VALID OVER LAND AND SEA)


 !       IF LHDHKS.AND.LECMWF

 !  1-SFGFS        - SURFACE SOLAR RADIATION DOWNWARDS

 !  2-SFGFS        - SURFACE THERMAL RADIATION DOWNWARDS

 !       IF LHDMCI

 !       IF LHDENT

 !$OMP THREADPRIVATE(hdcs0,hdcs1,hdcvb0,hdcvb1,pddhfsvi)

 END MODULE yomtddh

yomtddh::hdcvb1
real(kind=jprb), dimension(:,:,:), allocatable hdcvb1
Definition: yomtddh.F90:17

parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:31

yomtddh
Definition: yomtddh.F90:1

parkind1
Definition: parkind1.F90:1

yomtddh::hdcs1
real(kind=jprb), dimension(:,:,:), allocatable hdcs1
Definition: yomtddh.F90:19

parkind1::jpim
integer, parameter jpim
Definition: parkind1.F90:13

yomtddh::pddhfsvi
real(kind=jprb), dimension(:), allocatable pddhfsvi
Definition: yomtddh.F90:23

yomtddh::hdcs0
real(kind=jprb), dimension(:,:,:), allocatable hdcs0
Definition: yomtddh.F90:18

yomtddh::hdcvb0
real(kind=jprb), dimension(:,:,:), allocatable hdcvb0
Definition: yomtddh.F90:16