Changeset 5284 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 28, 2024, 2:12:55 PM (3 days ago)
Author:
abarral
Message:

Turn alpale.h alpale.f90 YOETHF.h into modules

Location:
LMDZ6/trunk/libf
Files:
2 deleted
59 edited
4 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r5282 r5284  
    9696  USE phys_state_var_mod, ONLY: beta_aridity, delta_tsurf, awake_dens, cv_gen, &
    9797       ratqs_inter_
    98   !use ioipsl
     98  USE alpale_mod
    9999  IMPLICIT NONE
    100100!-------------------------------------------------------------------------------
    … …  
    131131
    132132  INCLUDE "compbl.h"
    133   INCLUDE "alpale.h"
    134  
     133
    135134  deg2rad= pi/180.0
    136135  iml=assert_eq(SIZE(masque,1),SIZE(phis,1),TRIM(modname)//" iml")

  • LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90

    r5274 r5284  
    1515          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1616          , RALPD, RBETD, RGAMD
     17  USE yoethf_mod_h
    1718IMPLICIT NONE
    1819  !
    … …  
    3031  !===================================================================
    3132  !
    32 
    33 
    34   INCLUDE "YOETHF.h"
    3533  INCLUDE "FCTTRE.h"
    3634  !

  • LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5282 r5284  
    8989    ! defined and initialised mainly in phytracr_spl_mod.F90 (SPLA tracers, subroutine phytracr_spl_out_init)
    9090
    91     USE dimphy, ONLY: klon, klev, klevp1
     91USE alpale_mod
     92        USE dimphy, ONLY: klon, klev, klevp1
    9293    USE ocean_slab_mod, ONLY: nslay
    9394    USE control_mod, ONLY: day_step, iphysiq
    … …  
    411412
    412413!   INCLUDE "temps.h"
    413     INCLUDE "alpale.h"
    414414    INCLUDE "compbl.h"
    415 
    416 
    417415
    418416    ! Input

  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5274 r5284  
    822822      USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    823823          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     824      USE alpale_mod
     825      USE yoethf_mod_h
    824826      IMPLICIT none
    825827!
    … …  
    838840      INCLUDE "chem.h"
    839841      INCLUDE "chem_spla.h"
    840       INCLUDE "YOETHF.h"
    841       INCLUDE "alpale.h"
    842842
    843843!======================================================================

  • LMDZ6/trunk/libf/phylmd/alpale_mod.f90

    r5283 r5284  
    1 SUBROUTINE alpale ( debut, itap, dtime, paprs, omega, t_seri,   &
    2                     alp_offset, it_wape_prescr,  wape_prescr, fip_prescr, &
    3                     ale_bl_prescr, alp_bl_prescr, &
    4                     wake_pe, wake_fip,  &
    5                     Ale_bl, Ale_bl_trig, Alp_bl, &
    6                     Ale, Alp, Ale_wake, Alp_wake )
    7 
    8 ! **************************************************************
    9 ! *
    10 ! ALPALE                                                       *
    11 ! *
    12 ! *
    13 ! written by   : Jean-Yves Grandpeix, 12/05/2016              *
    14 ! modified by :                                               *
    15 ! **************************************************************
    16 
    17   USE dimphy
    18   USE ioipsl_getin_p_mod, ONLY : getin_p
    19   USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    20   USE phys_local_var_mod, ONLY: zw2       ! Variables internes non sauvegardees de la physique
    21 !
    22   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    23           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    24           , R_ecc, R_peri, R_incl                                      &
    25           , RA, RG, R1SA                                         &
    26           , RSIGMA                                                     &
    27           , R, RMD, RMV, RD, RV, RCPD                    &
    28           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    29           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    30           , RCW, RCS                                                 &
    31           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    32           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    33           , RALPD, RBETD, RGAMD
    34 IMPLICIT NONE
    35 
    36 !================================================================
    37 ! Auteur(s)   : Jean-Yves Grandpeix, 12/05/2016
    38 ! Objet : Sums up all contributions to Ale and Alp
    39 !================================================================
    40 
    41 ! Input arguments
    42 !----------------
    43   LOGICAL, INTENT(IN)                                        :: debut
    44   INTEGER, INTENT(IN)                                        :: itap
    45   REAL, INTENT(IN)                                           :: dtime
    46   INTEGER, INTENT(IN)                                        :: it_wape_prescr
    47   REAL, INTENT(IN)                                           :: wape_prescr, fip_prescr
    48   REAL, INTENT(IN)                                           :: Ale_bl_prescr, Alp_bl_prescr
    49   REAL, INTENT(IN)                                           :: alp_offset
    50   REAL, DIMENSION(klon,klev+1), INTENT(IN)                   :: paprs
    51   REAL, DIMENSION(klon,klev), INTENT(IN)                     :: t_seri
    52   REAL, DIMENSION(klon,klev), INTENT(IN)                     :: omega
    53   REAL, DIMENSION(klon), INTENT(IN)                          :: wake_pe, wake_fip
    54   REAL, DIMENSION(klon), INTENT(IN)                          :: Ale_bl, Ale_bl_trig, Alp_bl
    55 
    56 
    57 ! Output arguments
    58 !----------------
    59   REAL, DIMENSION(klon), INTENT(OUT)                         :: Ale, Alp
    60   REAL, DIMENSION(klon), INTENT(OUT)                         :: Ale_wake, Alp_wake
    61 
    62   include "alpale.h"
    63 
    64   include "YOETHF.h"
    65 
    66 ! Local variables
    67 !----------------
    68   INTEGER                                                    :: i, k
    69   REAL, DIMENSION(klon)                                      :: www
    70   REAL, SAVE                                                 :: ale_max=1000.
    71   REAL, SAVE                                                 :: alp_max=2.
    72   CHARACTER*20 modname
    73   CHARACTER*80 abort_message
     1! Contains the alpale subroutine, as well as the old content from alpale.h
     2
     3MODULE alpale_mod
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC alpale
     6
     7  !=====================================================================
     8  ! Specifique de Ale/Alp :
     9  !=====================================================================
     10  PUBLIC iflag_trig_bl, iflag_clos_bl, tau_trig_shallow, tau_trig_deep, iflag_strig, &
     11          alp_bl_k, s_trig, h_trig, iflag_coupl, iflag_clos, iflag_wake
     12  ! dans alealp_th, thermcell_alp, physiq_mod, conf_phys
     13  INTEGER :: iflag_trig_bl, iflag_clos_bl, iflag_strig
     14  INTEGER :: tau_trig_shallow, tau_trig_deep
     15  REAL :: s_trig, h_trig
     16  ! thermcell_alp et convection ...
     17  INTEGER :: iflag_coupl, iflag_clos, iflag_wake
     18  ! thermcell_alp
     19  REAL :: alp_bl_k
     20  !$OMP THREADPRIVATE(iflag_trig_bl, iflag_clos_bl, tau_trig_shallow, tau_trig_deep, iflag_strig)
     21  !$OMP THREADPRIVATE(alp_bl_k, s_trig, h_trig, iflag_coupl, iflag_clos, iflag_wake)
     22
     23CONTAINS
     24
     25  SUBROUTINE alpale(debut, itap, dtime, paprs, omega, t_seri, &
     26          alp_offset, it_wape_prescr, wape_prescr, fip_prescr, &
     27          ale_bl_prescr, alp_bl_prescr, &
     28          wake_pe, wake_fip, &
     29          Ale_bl, Ale_bl_trig, Alp_bl, &
     30          Ale, Alp, Ale_wake, Alp_wake)
     31
     32    ! **************************************************************
     33    ! *
     34    ! ALPALE                                                       *
     35    ! *
     36    ! *
     37    ! written by   : Jean-Yves Grandpeix, 12/05/2016              *
     38    ! modified by :                                               *
     39    ! **************************************************************
     40
     41    USE dimphy
     42    USE ioipsl_getin_p_mod, ONLY: getin_p
     43    USE print_control_mod, ONLY: mydebug => debug, lunout, prt_level
     44    USE phys_local_var_mod, ONLY: zw2       ! Variables internes non sauvegardees de la physique
     45    USE yoethf_mod_h
     46    USE yomcst_mod_h
     47
     48    IMPLICIT NONE
     49
     50    !================================================================
     51    ! Auteur(s)   : Jean-Yves Grandpeix, 12/05/2016
     52    ! Objet : Sums up all contributions to Ale and Alp
     53    !================================================================
     54
     55    ! Input arguments
     56    !----------------
     57    LOGICAL, INTENT(IN) :: debut
     58    INTEGER, INTENT(IN) :: itap
     59    REAL, INTENT(IN) :: dtime
     60    INTEGER, INTENT(IN) :: it_wape_prescr
     61    REAL, INTENT(IN) :: wape_prescr, fip_prescr
     62    REAL, INTENT(IN) :: Ale_bl_prescr, Alp_bl_prescr
     63    REAL, INTENT(IN) :: alp_offset
     64    REAL, DIMENSION(klon, klev + 1), INTENT(IN) :: paprs
     65    REAL, DIMENSION(klon, klev), INTENT(IN) :: t_seri
     66    REAL, DIMENSION(klon, klev), INTENT(IN) :: omega
     67    REAL, DIMENSION(klon), INTENT(IN) :: wake_pe, wake_fip
     68    REAL, DIMENSION(klon), INTENT(IN) :: Ale_bl, Ale_bl_trig, Alp_bl
     69
     70
     71    ! Output arguments
     72    !----------------
     73    REAL, DIMENSION(klon), INTENT(OUT) :: Ale, Alp
     74    REAL, DIMENSION(klon), INTENT(OUT) :: Ale_wake, Alp_wake
     75
     76    ! Local variables
     77    !----------------
     78    INTEGER :: i, k
     79    REAL, DIMENSION(klon) :: www
     80    REAL, SAVE :: ale_max = 1000.
     81    REAL, SAVE :: alp_max = 2.
     82    CHARACTER*20 modname
     83    CHARACTER*80 abort_message
    7484
    7585
    7686    !$OMP THREADPRIVATE(ale_max,alp_max)
    7787
    78        ! Calcul de l'energie disponible ALE (J/kg) et de la puissance
    79        ! disponible ALP (W/m2) pour le soulevement des particules dans
    80        ! le modele convectif
    81        !
    82        do i = 1,klon
    83           ALE(i) = 0.
    84           ALP(i) = 0.
    85        enddo
    86        !
    87        !calcul de ale_wake et alp_wake
    88        if (iflag_wake>=1) then
    89           if (itap .le. it_wape_prescr) then
    90              do i = 1,klon
    91                 ale_wake(i) = wape_prescr
    92                 alp_wake(i) = fip_prescr
    93              enddo
    94           else
    95              do i = 1,klon
    96                 !jyg  ALE=WAPE au lieu de ALE = 1/2 Cstar**2
    97                 !cc           ale_wake(i) = 0.5*wake_cstar(i)**2
    98                 ale_wake(i) = wake_pe(i)
    99                 alp_wake(i) = wake_fip(i)
    100              enddo
    101           endif
    102        else
    103           do i = 1,klon
    104              ale_wake(i) = 0.
    105              alp_wake(i) = 0.
     88    ! Calcul de l'energie disponible ALE (J/kg) et de la puissance
     89    ! disponible ALP (W/m2) pour le soulevement des particules dans
     90    ! le modele convectif
     91
     92    DO i = 1, klon
     93      ALE(i) = 0.
     94      ALP(i) = 0.
     95    enddo
     96
     97    !calcul de ale_wake et alp_wake
     98    IF (iflag_wake>=1) THEN
     99      IF (itap <= it_wape_prescr) THEN
     100        DO i = 1, klon
     101          ale_wake(i) = wape_prescr
     102          alp_wake(i) = fip_prescr
     103        enddo
     104      else
     105        DO i = 1, klon
     106          !jyg  ALE=WAPE au lieu de ALE = 1/2 Cstar**2
     107          !cc           ale_wake(i) = 0.5*wake_cstar(i)**2
     108          ale_wake(i) = wake_pe(i)
     109          alp_wake(i) = wake_fip(i)
     110        enddo
     111      endif
     112    else
     113      DO i = 1, klon
     114        ale_wake(i) = 0.
     115        alp_wake(i) = 0.
     116      enddo
     117    endif
     118    !combinaison avec ale et alp de couche limite: constantes si pas
     119    !de couplage, valeurs calculees dans le thermique sinon
     120    IF (iflag_coupl==0) THEN
     121      IF (debut.AND.prt_level>9) &
     122              WRITE(lunout, *)'ALE et ALP imposes'
     123      DO i = 1, klon
     124        !on ne couple que ale
     125        !           ALE(i) = max(ale_wake(i),Ale_bl(i))
     126        ALE(i) = max(ale_wake(i), ale_bl_prescr)
     127        !on ne couple que alp
     128        !           ALP(i) = alp_wake(i) + Alp_bl(i)
     129        ALP(i) = alp_wake(i) + alp_bl_prescr
     130      enddo
     131    else
     132      IF(prt_level>9)WRITE(lunout, *)'ALE et ALP couples au thermique'
     133      !         do i = 1,klon
     134      !             ALE(i) = max(ale_wake(i),Ale_bl(i))
     135      ! avant        ALP(i) = alp_wake(i) + Alp_bl(i)
     136      !             ALP(i) = alp_wake(i) + Alp_bl(i) + alp_offset ! modif sb
     137      !         WRITE(20,*)'ALE',ALE(i),Ale_bl(i),ale_wake(i)
     138      !         WRITE(21,*)'ALP',ALP(i),Alp_bl(i),alp_wake(i)
     139      !         enddo
     140
     141      ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     142      ! Modif FH 2010/04/27. Sans doute temporaire.
     143      ! Deux options pour le alp_offset : constant si >?? 0 ou
     144      ! proportionnel ??a w si <0
     145      ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     146      ! Estimation d'une vitesse verticale effective pour ALP
     147      IF (1==0) THEN
     148        www(1:klon) = 0.
     149        DO k = 2, klev - 1
     150          DO i = 1, klon
     151            www(i) = max(www(i), -omega(i, k) * RD * t_seri(i, k) &
     152                    / (RG * paprs(i, k)) * zw2(i, k) * zw2(i, k))
     153            ! if (paprs(i,k)>pbase(i)) THEN
     154            ! calcul approche de la vitesse verticale en m/s
     155            !  www(i)=max(www(i),-omega(i,k)*RD*temp(i,k)/(RG*paprs(i,k))
     156            !             endif
     157            !   Le 0.1 est en gros H / ps = 1e4 / 1e5
    106158          enddo
    107        endif
    108        !combinaison avec ale et alp de couche limite: constantes si pas
    109        !de couplage, valeurs calculees dans le thermique sinon
    110        if (iflag_coupl.eq.0) then
    111           if (debut.and.prt_level.gt.9) &
    112                WRITE(lunout,*)'ALE et ALP imposes'
    113           do i = 1,klon
    114              !on ne couple que ale
    115              !           ALE(i) = max(ale_wake(i),Ale_bl(i))
    116              ALE(i) = max(ale_wake(i),ale_bl_prescr)
    117              !on ne couple que alp
    118              !           ALP(i) = alp_wake(i) + Alp_bl(i)
    119              ALP(i) = alp_wake(i) + alp_bl_prescr
    120           enddo
    121        else
    122           IF(prt_level>9)WRITE(lunout,*)'ALE et ALP couples au thermique'
    123           !         do i = 1,klon
    124           !             ALE(i) = max(ale_wake(i),Ale_bl(i))
    125           ! avant        ALP(i) = alp_wake(i) + Alp_bl(i)
    126           !             ALP(i) = alp_wake(i) + Alp_bl(i) + alp_offset ! modif sb
    127           !         write(20,*)'ALE',ALE(i),Ale_bl(i),ale_wake(i)
    128           !         write(21,*)'ALP',ALP(i),Alp_bl(i),alp_wake(i)
    129           !         enddo
    130 
    131           ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    132           ! Modif FH 2010/04/27. Sans doute temporaire.
    133           ! Deux options pour le alp_offset : constant si >?? 0 ou
    134           ! proportionnel ??a w si <0
    135           ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    136           ! Estimation d'une vitesse verticale effective pour ALP
    137           if (1==0) THEN
    138              www(1:klon)=0.
    139              do k=2,klev-1
    140                 do i=1,klon
    141                    www(i)=max(www(i),-omega(i,k)*RD*t_seri(i,k) &
    142                         /(RG*paprs(i,k)) *zw2(i,k)*zw2(i,k))
    143                    ! if (paprs(i,k)>pbase(i)) then
    144                    ! calcul approche de la vitesse verticale en m/s
    145                    !  www(i)=max(www(i),-omega(i,k)*RD*temp(i,k)/(RG*paprs(i,k))
    146                    !             endif
    147                    !   Le 0.1 est en gros H / ps = 1e4 / 1e5
    148                 enddo
    149              enddo
    150              do i=1,klon
    151                 if (www(i)>0. .and. ale_bl(i)>0. ) www(i)=www(i)/ale_bl(i)
    152              enddo
    153           ENDIF
    154 
    155 
    156           do i = 1,klon
    157              ALE(i) = max(ale_wake(i),Ale_bl(i))
    158              !cc nrlmd le 10/04/2012----------Stochastic triggering------------
    159              if (iflag_trig_bl.ge.1) then
    160                 ALE(i) = max(ale_wake(i),Ale_bl_trig(i))
    161              endif
    162              !cc fin nrlmd le 10/04/2012
    163              if (alp_offset>=0.) then
    164                 ALP(i) = alp_wake(i) + Alp_bl(i) + alp_offset ! modif sb
    165              else
    166                 abort_message ='Ne pas passer la car www non calcule'
    167                 CALL abort_physic (modname,abort_message,1)
    168 
    169                 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    170                 !                                _                  _
    171                 ! Ajout d'une composante 3 * A * w w'2 a w'3 avec
    172                 ! w=www : w max sous pbase ou A est la fraction
    173                 ! couverte par les ascendances w' on utilise le fait
    174                 ! que A * w'3 = ALP et donc A * w'2 ~ ALP / sqrt(ALE)
    175                 ! (on ajoute 0.1 pour les singularites)
    176                 ALP(i)=alp_wake(i)*(1.+3.*www(i)/( sqrt(ale_wake(i))+0.1) ) &
    177                      +alp_bl(i)  *(1.+3.*www(i)/( sqrt(ale_bl(i))  +0.1) )
    178                 !    ALP(i)=alp_wake(i)+Alp_bl(i)+alp_offset*min(omega(i,6),0.)
    179                 !             if (alp(i)<0.) then
    180                 !                print*,'ALP ',alp(i),alp_wake(i) &
    181                 !                     ,Alp_bl(i),alp_offset*min(omega(i,6),0.)
    182                 !             endif
    183              endif
    184           enddo
    185           ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    186 
    187        endif
    188        do i=1,klon
    189           if (alp(i)>alp_max) then
    190              IF(prt_level>9)WRITE(lunout,*)                             &
    191                   'WARNING SUPER ALP (seuil=',alp_max, &
    192                   '): i, alp, alp_wake,ale',i,alp(i),alp_wake(i),ale(i)
    193              alp(i)=alp_max
    194           endif
    195           if (ale(i)>ale_max) then
    196              IF(prt_level>9)WRITE(lunout,*)                             &
    197                   'WARNING SUPER ALE (seuil=',ale_max, &
    198                   '): i, alp, alp_wake,ale',i,ale(i),ale_wake(i),alp(i)
    199              ale(i)=ale_max
    200           endif
    201        enddo
    202 
    203        !fin calcul ale et alp
    204        !=======================================================================
    205 
    206 
    207   RETURN
     159        enddo
     160        DO i = 1, klon
     161          IF (www(i)>0. .AND. ale_bl(i)>0.) www(i) = www(i) / ale_bl(i)
     162        enddo
     163      ENDIF
     164
     165      DO i = 1, klon
     166        ALE(i) = max(ale_wake(i), Ale_bl(i))
     167        !cc nrlmd le 10/04/2012----------Stochastic triggering------------
     168        IF (iflag_trig_bl>=1) THEN
     169          ALE(i) = max(ale_wake(i), Ale_bl_trig(i))
     170        endif
     171        !cc fin nrlmd le 10/04/2012
     172        IF (alp_offset>=0.) THEN
     173          ALP(i) = alp_wake(i) + Alp_bl(i) + alp_offset ! modif sb
     174        else
     175          abort_message = 'Ne pas passer la car www non calcule'
     176          CALL abort_physic (modname, abort_message, 1)
     177
     178          ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     179          !                                _                  _
     180          ! Ajout d'une composante 3 * A * w w'2 a w'3 avec
     181          ! w=www : w max sous pbase ou A est la fraction
     182          ! couverte par les ascendances w' on utilise le fait
     183          ! que A * w'3 = ALP et donc A * w'2 ~ ALP / sqrt(ALE)
     184          ! (on ajoute 0.1 pour les singularites)
     185          ALP(i) = alp_wake(i) * (1. + 3. * www(i) / (sqrt(ale_wake(i)) + 0.1)) &
     186                  + alp_bl(i) * (1. + 3. * www(i) / (sqrt(ale_bl(i)) + 0.1))
     187          !    ALP(i)=alp_wake(i)+Alp_bl(i)+alp_offset*min(omega(i,6),0.)
     188          !             if (alp(i)<0.) THEN
     189          !                PRINT*,'ALP ',alp(i),alp_wake(i) &
     190          !                     ,Alp_bl(i),alp_offset*min(omega(i,6),0.)
     191          !             endif
     192        endif
     193      enddo
     194      ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     195
     196    endif
     197    DO i = 1, klon
     198      IF (alp(i)>alp_max) THEN
     199        IF(prt_level>9)WRITE(lunout, *)                             &
     200                'WARNING SUPER ALP (seuil=', alp_max, &
     201                '): i, alp, alp_wake,ale', i, alp(i), alp_wake(i), ale(i)
     202        alp(i) = alp_max
     203      endif
     204      IF (ale(i)>ale_max) THEN
     205        IF(prt_level>9)WRITE(lunout, *)                             &
     206                'WARNING SUPER ALE (seuil=', ale_max, &
     207                '): i, alp, alp_wake,ale', i, ale(i), ale_wake(i), alp(i)
     208        ale(i) = ale_max
     209      endif
     210    enddo
     211
     212    !fin calcul ale et alp
     213    !=======================================================================
     214
     215    RETURN
    208216  END
    209217
     218END MODULE alpale_mod

  • LMDZ6/trunk/libf/phylmd/alpale_th.f90

    r5268 r5284  
    2020  USE ioipsl_getin_p_mod, ONLY : getin_p
    2121  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    22 !
     22  USE alpale_mod
    2323  IMPLICIT NONE
    2424
    … …  
    4646
    4747  REAL, DIMENSION(klon), INTENT(OUT)                         :: birth_rate
    48 
    49   include "alpale.h"
    5048
    5149! Local variables

  • LMDZ6/trunk/libf/phylmd/borne_var_surf.f90

    r5274 r5284  
    1919          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2020          , RALPD, RBETD, RGAMD
     21USE yoethf_mod_h
    2122IMPLICIT NONE
    2223
    … …  
    4142REAL                               :: zx_qs1, zcor1, zdelta1
    4243
    43 include "YOETHF.h"
    4444include "FCTTRE.h"
    4545!==================================================================

  • LMDZ6/trunk/libf/phylmd/calcul_fluxs_mod.f90

    r5282 r5284  
    3232          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    3333          , RALPD, RBETD, RGAMD
     34    USE yoethf_mod_h
    3435
    3536
    … …  
    7273!   lat_prec_sol                                  precipitations solides
    7374
    74     INCLUDE "YOETHF.h"
    7575    INCLUDE "FCTTRE.h"
    7676

  • LMDZ6/trunk/libf/phylmd/cdrag_mod.f90

    r5282 r5284  
    4242          , RALPD, RBETD, RGAMD
    4343  USE clesphys_mod_h
    44 
     44  USE yoethf_mod_h
    4545  IMPLICIT NONE
    4646! ================================================================= c
    … …  
    127127! Variables Locales
    128128!******************************************************************
    129   INCLUDE "YOETHF.h"
    130 
    131129
    132130  REAL, PARAMETER       :: CKAP=0.40, CKAPT=0.42

  • LMDZ6/trunk/libf/phylmd/clcdrag.f90

    r5282 r5284  
    2323          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2424          , RALPD, RBETD, RGAMD
     25  USE yoethf_mod_h
    2526IMPLICIT NONE
    2627! ================================================================= c
    … …  
    5455! ================================================================= c
    5556!
    56 
    57   INCLUDE "YOETHF.h"
    58 !
     57  !
    5958! Quelques constantes et options:
    6059!!$PB      REAL, PARAMETER :: ckap=0.35, cb=5.0, cc=5.0, cd=5.0, cepdu2=(0.1)**2

  • LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.f90

    r5282 r5284  
    3232          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    3333          , RALPD, RBETD, RGAMD
     34    USE yoethf_mod_h
    3435!
    3536! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the
    … …  
    7475!****************************************************************************************
    7576    INCLUDE "compbl.h"
    76     INCLUDE "YOETHF.h"
    7777
    7878    ykmm = 0 !ym missing init
    … …  
    230230          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    231231          , RALPD, RBETD, RGAMD
    232 USE dimphy
     232    USE dimphy
    233233    USE indice_sol_mod
    234234    USE print_control_mod, ONLY: prt_level, lunout
     235    USE yoethf_mod_h
    235236
    236237!======================================================================
    … …  
    253254! pcfh-----output-R- coefficients a calculer (chaleur et humidite)
    254255!======================================================================
    255     INCLUDE "YOETHF.h"
    256 
    257256    INCLUDE "FCTTRE.h"
    258257    INCLUDE "compbl.h"

  • LMDZ6/trunk/libf/phylmd/coefcdrag.f90

    r5282 r5284  
    2222          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2323          , RALPD, RBETD, RGAMD
     24      USE yoethf_mod_h
    2425IMPLICIT none
    2526!-------------------------------------------------------------------------
    … …  
    6465!
    6566
    66       include "YOETHF.h"
    6767! Quelques constantes :
    6868      REAL, parameter :: RKAR=0.40, CB=5.0, CC=5.0, CD=5.0, cepdu2=(0.1)**2

  • LMDZ6/trunk/libf/phylmd/conccm.f90

    r5274 r5284  
    1818          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1919          , RALPD, RBETD, RGAMD
     20  USE yoethf_mod_h
    2021IMPLICIT NONE
    2122  ! ======================================================================
    … …  
    2425  ! (schema standard du modele NCAR CCM2)
    2526  ! ======================================================================
    26 
    27   include "YOETHF.h"
    2827
    2928  ! Entree:
    … …  
    162161          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    163162          , RALPD, RBETD, RGAMD
     163  USE yoethf_mod_h
    164164  IMPLICIT NONE
    165165  ! -----------------------------------------------------------------------
    … …  
    314314
    315315  REAL qhalf, sh1, sh2, shbs1, shbs2
    316   include "YOETHF.h"
    317316  include "FCTTRE.h"
    318317  qhalf(sh1, sh2, shbs1, shbs2) = min(max(sh1,sh2), &

  • LMDZ6/trunk/libf/phylmd/concvl.f90

    r5283 r5284  
    4848          , RALPD, RBETD, RGAMD
    4949  USE conema3_mod_h
     50  USE yoethf_mod_h
    5051  IMPLICIT NONE
    5152! ======================================================================
    … …  
    237238!$OMP THREADPRIVATE(itap, igout)
    238239  include "YOMCST2.h"
    239   include "YOETHF.h"
    240240  include "FCTTRE.h"
    241241

  • LMDZ6/trunk/libf/phylmd/conema3.f90

    r5283 r5284  
    2222          , RALPD, RBETD, RGAMD
    2323  USE conema3_mod_h
     24  USE yoethf_mod_h
    2425  IMPLICIT NONE
    2526  ! ======================================================================
    … …  
    187188  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    188189
    189   include "YOETHF.h"
    190190  include "FCTTRE.h"
    191191

  • LMDZ6/trunk/libf/phylmd/conemav.f90

    r5274 r5284  
    2121          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2222          , RALPD, RBETD, RGAMD
     23  USE yoethf_mod_h
    2324  IMPLICIT NONE
    2425  ! ======================================================================
    … …  
    8687  DATA ifrst/0/
    8788  !$OMP THREADPRIVATE(ifrst)
    88   include "YOETHF.h"
    8989  include "FCTTRE.h"
    9090

  • LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

    r5283 r5284  
    2424       alp_offset)
    2525
    26 USE conema3_mod_h
     26USE alpale_mod
     27    USE conema3_mod_h
    2728        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2829          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    5455
    5556    INCLUDE "YOMCST2.h"
    56     INCLUDE "alpale.h"
    5757
    5858    !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12

  • LMDZ6/trunk/libf/phylmd/conflx.f90

    r5274 r5284  
    1919          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2020          , RALPD, RBETD, RGAMD
     21  USE yoethf_mod_h
    2122IMPLICIT NONE
    2223  ! ======================================================================
    … …  
    2930  ! ======================================================================
    3031
    31   include "YOETHF.h"
    3232  ! Entree:
    3333  REAL dtime ! pas d'integration (s)
    … …  
    217217                                                              ! ldcum, ktype,
    218218    pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, dt_con, dq_con, pmflxr, pmflxs)
    219   USE dimphy
     219USE yoethf_mod_h
     220    USE dimphy
    220221  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    221222          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    233234  ! ------------------------------------------------------------------
    234235
    235   include "YOETHF.h"
    236236  include "YOECUMF.h"
    237237  ! ----------------------------------------------------------------
    … …  
    515515          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    516516          , RALPD, RBETD, RGAMD
     517  USE yoethf_mod_h
    517518IMPLICIT NONE
    518519  ! ----------------------------------------------------------------------
    … …  
    521522  ! AND INITIALIZES VALUES FOR UPDRAFTS
    522523  ! ----------------------------------------------------------------------
    523 
    524   include "YOETHF.h"
    525524
    526525  REAL pten(klon, klev) ! temperature (environnement)
    … …  
    649648          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    650649          , RALPD, RBETD, RGAMD
     650  USE yoethf_mod_h
    651651IMPLICIT NONE
    652652  ! ----------------------------------------------------------------------
    … …  
    661661  ! (NON ENTRAINING PLUME,I.E.CONSTANT MASSFLUX)
    662662  ! ----------------------------------------------------------------------
    663 
    664   include "YOETHF.h"
    665   ! ----------------------------------------------------------------
    666663  REAL ptenh(klon, klev), pqenh(klon, klev)
    667664  REAL pgeoh(klon, klev), paph(klon, klev+1)
    … …  
    730727    pmfub, pentr, pmfus, pmfuq, pmful, plude, pdmfup, kcbot, kctop, kctop0, &
    731728    kcum, pen_u, pde_u)
    732   USE dimphy
     729USE yoethf_mod_h
     730    USE dimphy
    733731  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    734732          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    749747  ! ----------------------------------------------------------------------
    750748
    751   include "YOETHF.h"
    752749  include "YOECUMF.h"
    753750
    … …  
    10411038    pmfds, pmfuq, pmfdq, pmful, plude, pdmfup, pdmfdp, pten, prfl, psfl, &
    10421039    pdpmel, ktopm2, pmflxr, pmflxs)
    1043   USE dimphy
     1040USE yoethf_mod_h
     1041    USE dimphy
    10441042  USE print_control_mod, ONLY: prt_level
    10451043  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    … …  
    10611059  ! ----------------------------------------------------------------------
    10621060
    1063   include "YOETHF.h"
    10641061  include "YOECUMF.h"
    10651062
    … …  
    12971294SUBROUTINE flxdtdq(pdtime, ktopm2, paph, ldcum, pten, pmfus, pmfds, pmfuq, &
    12981295    pmfdq, pmful, pdmfup, pdmfdp, pdpmel, dt_con, dq_con)
    1299   USE dimphy
     1296USE yoethf_mod_h
     1297    USE dimphy
    13001298  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    13011299          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    13151313  ! ----------------------------------------------------------------------
    13161314
    1317   include "YOETHF.h"
    13181315  include "YOECUMF.h"
    13191316  ! -----------------------------------------------------------------
    … …  
    13711368SUBROUTINE flxdlfs(ptenh, pqenh, pgeoh, paph, ptu, pqu, ldcum, kcbot, kctop, &
    13721369    pmfub, prfl, ptd, pqd, pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf)
    1373   USE dimphy
     1370USE yoethf_mod_h
     1371    USE dimphy
    13741372  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    13751373          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    14021400  ! ----------------------------------------------------------------------
    14031401
    1404   include "YOETHF.h"
    14051402  include "YOECUMF.h"
    14061403
    … …  
    15031500          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    15041501          , RALPD, RBETD, RGAMD
     1502  USE yoethf_mod_h
    15051503IMPLICIT NONE
    15061504
    … …  
    15211519  ! ----------------------------------------------------------------------
    15221520
    1523   include "YOETHF.h"
    15241521  include "YOECUMF.h"
    15251522
    … …  
    16281625          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    16291626          , RALPD, RBETD, RGAMD
     1627  USE yoethf_mod_h
    16301628  IMPLICIT NONE
    16311629  ! ======================================================================
    … …  
    16451643  REAL zdelta, zcvm5, zldcp, zqsat, zcor
    16461644  INTEGER is, i
    1647   include "YOETHF.h"
    16481645  include "FCTTRE.h"
    16491646

  • LMDZ6/trunk/libf/phylmd/conlmd.f90

    r5274 r5284  
    1717          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1818          , RALPD, RBETD, RGAMD
     19  USE yoethf_mod_h
    1920IMPLICIT NONE
    2021  ! ======================================================================
    … …  
    2324  ! Ajustement humide (Manabe) + Ajustement convectif (Kuo)
    2425  ! ======================================================================
    25 
    26   include "YOETHF.h"
    2726
    2827  ! Arguments:
    … …  
    115114          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    116115          , RALPD, RBETD, RGAMD
     116  USE yoethf_mod_h
    117117  IMPLICIT NONE
    118118  ! ======================================================================
    … …  
    185185  ! Fonctions thermodynamiques:
    186186
    187   include "YOETHF.h"
    188187  include "FCTTRE.h"
    189188
    … …  
    332331          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    333332          , RALPD, RBETD, RGAMD
     333  USE yoethf_mod_h
    334334IMPLICIT NONE
    335335  ! ======================================================================
    … …  
    414414  ! Fonctions thermodynamiques:
    415415
    416   include "YOETHF.h"
    417416  include "FCTTRE.h"
    418417
    … …  
    10921091          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    10931092          , RALPD, RBETD, RGAMD
     1093  USE yoethf_mod_h
    10941094IMPLICIT NONE
    10951095  ! ======================================================================
    … …  
    11751175  ! Fonctions thermodynamiques
    11761176
    1177   include "YOETHF.h"
    11781177  include "FCTTRE.h"
    11791178
    … …  
    16121611          , RALPD, RBETD, RGAMD
    16131612  USE dimphy
     1613  USE yoethf_mod_h
    16141614  IMPLICIT NONE
    16151615  ! ======================================================================
    … …  
    16281628  ! kcbot---output-I- Niveau du bas de la convection
    16291629  ! ======================================================================
    1630   include "YOETHF.h"
    16311630
    16321631  REAL pt(klon, klev), pq(klon, klev), pg(klon, klev), pp(klon, klev)
    … …  
    17231722          , RALPD, RBETD, RGAMD
    17241723  USE dimphy
     1724  USE yoethf_mod_h
    17251725  IMPLICIT NONE
    17261726  ! ======================================================================
    … …  
    17521752  REAL zdelta, zcvm5, zldcp, zqsat, zcor, zdqsat
    17531753  INTEGER is, i
    1754   include "YOETHF.h"
    17551754  include "FCTTRE.h"
    17561755
    … …  
    18411840          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    18421841          , RALPD, RBETD, RGAMD
     1842  USE yoethf_mod_h
    18431843IMPLICIT NONE
    18441844
    … …  
    18931893  REAL zdelta, zcor, zcvm5
    18941894
    1895   include "YOETHF.h"
    18961895  include "FCTTRE.h"
    18971896
    … …  
    21382137          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    21392138          , RALPD, RBETD, RGAMD
     2139  USE yoethf_mod_h
    21402140IMPLICIT NONE
    21412141
    … …  
    21802180  REAL zdelta, zcor, zcvm5
    21812181
    2182   include "YOETHF.h"
    21832182  include "FCTTRE.h"
    21842183

  • LMDZ6/trunk/libf/phylmd/create_etat0_unstruct_mod.f90

    r5282 r5284  
    9494  USE dimsoil_mod_h, ONLY: nsoilmx
    9595  USE clesphys_mod_h
     96  USE alpale_mod
    9697  IMPLICIT NONE
    9798
    … …  
    113114
    114115    INCLUDE "compbl.h"
    115     INCLUDE "alpale.h"
    116    
     116
    117117    INTEGER :: ji,j,i
    118118 

  • LMDZ6/trunk/libf/phylmd/cv3_enthalpmix.f90

    r5276 r5284  
    2525          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2626          , RALPD, RBETD, RGAMD
     27  USE yoethf_mod_h
    2728IMPLICIT NONE
    2829  ! ==============================================================
    … …  
    3536
    3637  ! ===============================================================
    37 
    38   include "YOETHF.h"
    3938
    4039  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90

    r5276 r5284  
    2626          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2727          , RALPD, RBETD, RGAMD
     28  USE yoethf_mod_h
    2829IMPLICIT NONE
    2930  ! ==============================================================
    … …  
    3637
    3738  ! ===============================================================
    38 
    39   include "YOETHF.h"
    4039
    4140  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/diagphy.f90

    r5274 r5284  
    4747  ! ======================================================================
    4848
    49   USE dimphy
     49USE yoethf_mod_h
     50    USE dimphy
    5051  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    5152          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    6364
    6465
    65   include "YOETHF.h"
    6666
    6767  ! Input variables
    … …  
    216216  ! ======================================================================
    217217
    218   USE dimphy
     218USE yoethf_mod_h
     219    USE dimphy
    219220  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    220221          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    232233
    233234
    234   include "YOETHF.h"
    235235
    236236  ! Input variables

  • LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5274 r5284  
    15431543          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    15441544          , RALPD, RBETD, RGAMD
     1545  USE yoethf_mod_h
    15451546implicit none
    15461547
    … …  
    15621563! Declaration des constantes et des fonctions thermodynamiques
    15631564!
    1564 
    1565 include "YOETHF.h"
    15661565!
    15671566!  ----------------------------------------
    … …  
    16381637          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    16391638          , RALPD, RBETD, RGAMD
     1639  USE yoethf_mod_h
    16401640implicit none
    16411641
    … …  
    16691669!
    16701670
    1671 include "YOETHF.h"
    16721671!
    16731672!  ----------------------------------------

  • LMDZ6/trunk/libf/phylmd/ener_conserv.f90

    r5282 r5284  
    2020
    2121! From module
     22USE yoethf_mod_h
    2223USE clesphys_mod_h
    2324USE phys_local_var_mod, ONLY : d_u_vdf,d_v_vdf,d_t_vdf,d_u_ajs,d_v_ajs,d_t_ajs, &
    … …  
    4647IMPLICIT none
    4748
    48 INCLUDE "YOETHF.h"
    4949INCLUDE "compbl.h"
    5050

  • LMDZ6/trunk/libf/phylmd/evappot.f90

    r5274 r5284  
    22       &    t_seri,q_seri,u_seri,v_seri,evap_pot)
    33
     4USE yoethf_mod_h
    45USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    56          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    1718
    1819
    19 INCLUDE "YOETHF.h"
    2020INCLUDE "FCTTRE.h"
    2121

  • LMDZ6/trunk/libf/phylmd/fisrtilp_tr.f90

    r5274 r5284  
    2323          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2424          , RALPD, RBETD, RGAMD
     25  USE yoethf_mod_h
    2526IMPLICIT NONE
    2627  ! ======================================================================
    … …  
    134135  REAL fallv ! vitesse de chute pour crystaux de glace
    135136  REAL zzz
    136   include "YOETHF.h"
    137137  include "FCTTRE.h"
    138138  fallv(zzz) = 3.29/2.0*((zzz)**0.16)

  • LMDZ6/trunk/libf/phylmd/fonte_neige_mod.F90

    r5282 r5284  
    246246#endif
    247247#endif
    248     USE clesphys_mod_h
     248USE yoethf_mod_h
     249      USE clesphys_mod_h
    249250  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    250251          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    278279!   evap
    279280!
    280   INCLUDE "YOETHF.h"
    281281  INCLUDE "FCTTRE.h"
    282282

  • LMDZ6/trunk/libf/phylmd/hbtm2l.f90

    r5274 r5284  
    1717          , RALPD, RBETD, RGAMD
    1818  USE dimphy
     19  USE yoethf_mod_h
    1920  IMPLICIT NONE
    2021
    … …  
    141142  REAL missing_val
    142143
    143   include "YOETHF.h"
    144144  include "FCTTRE.h"
    145145

  • LMDZ6/trunk/libf/phylmd/hbtm_mod.f90

    r5274 r5284  
    2121       trmb1, trmb2, trmb3, plcl)
    2222    USE dimphy
     23    USE yoethf_mod_h
    2324
    2425    ! ***************************************************************
    … …  
    164165    REAL fac, pblmin, zmzp, term
    165166
    166     include "YOETHF.h"
    167167    include "FCTTRE.h"
    168 
    169 
    170168
    171169    ! initialisations (Anne)

  • LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_ts2.f90

    r5274 r5284  
    5858  ! |________________________________________________________________________|
    5959
    60   USE VAR_SV
     60USE yoethf_mod_h
     61    USE VAR_SV
    6162  USE VARdSV
    6263
    … …  
    8788
    8889
    89   INCLUDE "YOETHF.h"
    9090  INCLUDE "FCTTRE.h"
    9191   ! INCLUDE "indicesol.h"

  • LMDZ6/trunk/libf/phylmd/lmdz_cloudth.f90

    r5274 r5284  
    2727          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2828          , RALPD, RBETD, RGAMD
     29      USE yoethf_mod_h
    2930IMPLICIT NONE
    3031
    … …  
    3637!===========================================================================
    3738
    38 
    39 
    40       INCLUDE "YOETHF.h"
    4139      INCLUDE "FCTTRE.h"
    4240
    … …  
    277275
    278276
    279       use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha
     277USE yoethf_mod_h
     278            use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha
    280279
    281280      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    … …  
    294293
    295294
    296       INCLUDE "YOETHF.h"
    297295      INCLUDE "FCTTRE.h"
    298296     
    … …  
    624622          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    625623          , RALPD, RBETD, RGAMD
     624      USE yoethf_mod_h
    626625IMPLICIT NONE
    627626
    … …  
    632631! Objet : calcule les valeurs de qc et rneb dans les thermiques
    633632!===========================================================================
    634 
    635 
    636 
    637       INCLUDE "YOETHF.h"
    638633      INCLUDE "FCTTRE.h"
    639634
    … …  
    855850!===========================================================================
    856851
    857       use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs
     852USE yoethf_mod_h
     853            use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs
    858854      use lmdz_cloudth_ini, only : vert_alpha,vert_alpha_th, sigma1s_factor, sigma1s_power , sigma2s_factor , sigma2s_power , cloudth_ratqsmin , iflag_cloudth_vert_noratqs
    859855
    … …  
    875871
    876872
    877       INCLUDE "YOETHF.h"
    878873      INCLUDE "FCTTRE.h"
    879874     
    … …  
    12961291     &           cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv)
    12971292
    1298       use lmdz_cloudth_ini, only: iflag_cloudth_vert
     1293USE yoethf_mod_h
     1294            use lmdz_cloudth_ini, only: iflag_cloudth_vert
    12991295
    13001296      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    … …  
    13141310
    13151311
    1316       INCLUDE "YOETHF.h"
    13171312      INCLUDE "FCTTRE.h"
    13181313

  • LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.f90

    r5274 r5284  
    3838  USE lmdz_lscp_ini, ONLY: cld_tau_lsc, cld_tau_con, cld_lc_lsc, cld_lc_con
    3939  USE lmdz_lscp_ini, ONLY: reevap_ice, iflag_bergeron, iflag_fisrtilp_qsat, iflag_pdf
    40 
     40  USE yoethf_mod_h
    4141
    4242
    … …  
    6767  !   fl_cor_ebil= 0 pour reproduire anciens bugs
    6868  !======================================================================
    69   include "YOETHF.h"
    7069  include "FCTTRE.h"
    7170  !

  • LMDZ6/trunk/libf/phylmd/lmdz_lscp_tools.f90

    r5274 r5284  
    519519
    520520
    521     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     521USE yoethf_mod_h
     522        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    522523          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    523524          , R_ecc, R_peri, R_incl                                      &
    … …  
    534535
    535536
    536     include "YOETHF.h"
    537537    include "FCTTRE.h"
    538538

  • LMDZ6/trunk/libf/phylmd/lmdz_ratqs_multi.f90

    r5268 r5284  
    1414!=============================================
    1515
    16 IMPLICIT NONE
     16USE yoethf_mod_h
     17    IMPLICIT NONE
    1718
    1819! Include
    1920!=============================================
    20     INCLUDE "YOETHF.h"
    2121
    2222

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alp.f90

    r5274 r5284  
    1919     &)
    2020
    21       USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     21USE yoethf_mod_h
     22      USE alpale_mod
     23            USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2224          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    2325          , R_ecc, R_peri, R_incl                                      &
    … …  
    4951!   -------------
    5052
    51       INCLUDE "YOETHF.h"
    5253      INCLUDE "FCTTRE.h"
    53       INCLUDE "alpale.h"
    5454
    5555!   arguments:

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_old.F90

    r5274 r5284  
    730730    , r_aspect, l_mix, w2di, tho)
    731731
    732   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     732USE yoethf_mod_h
     733    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    733734          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    734735          , R_ecc, R_peri, R_incl                                      &
    … …  
    769770  ! -------------
    770771
    771   include "YOETHF.h"
    772772  include "FCTTRE.h"
    773773
    … …  
    23422342    , r_aspect, l_mix, w2di, tho)
    23432343
    2344   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2344USE yoethf_mod_h
     2345    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    23452346          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    23462347          , R_ecc, R_peri, R_incl                                      &
    … …  
    23812382  ! -------------
    23822383
    2383   include "YOETHF.h"
    23842384  include "FCTTRE.h"
    23852385

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_qsat.f90

    r5274 r5284  
    33
    44subroutine thermcell_qsat(klon,active,pplev,ztemp,zqta,zqsat)
    5 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     5USE yoethf_mod_h
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    67          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    78          , R_ecc, R_peri, R_incl                                      &
    … …  
    1819
    1920
    20   INCLUDE "YOETHF.h"
    2121  INCLUDE "FCTTRE.h"
    2222

  • LMDZ6/trunk/libf/phylmd/nonlocal.f90

    r5274 r5284  
    1818          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1919          , RALPD, RBETD, RGAMD
     20  USE yoethf_mod_h
    2021IMPLICIT NONE
    2122  ! ======================================================================
    … …  
    119120  REAL fac, pblmin, zmzp, term
    120121
    121   include "YOETHF.h"
    122122  include "FCTTRE.h"
    123123

  • LMDZ6/trunk/libf/phylmd/nuage.f90

    r5282 r5284  
    377377          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    378378          , RALPD, RBETD, RGAMD
     379  USE yoethf_mod_h
    379380IMPLICIT NONE
    380381
    … …  
    410411
    411412  ! Fonctions thermodynamiques:
    412   include "YOETHF.h"
    413413  include "FCTTRE.h"
    414414

  • LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

    r5282 r5284  
    407407#endif
    408408#endif
    409     USE clesphys_mod_h
     409USE yoethf_mod_h
     410        USE clesphys_mod_h
    410411    USE ioipsl_getin_p_mod, ONLY : getin_p
    411412    use phys_state_var_mod, only: ds_ns, dt_ns, delta_sst, delta_sal, dter, &
    … …  
    431432IMPLICIT NONE
    432433
    433     INCLUDE "YOETHF.h"
    434434    INCLUDE "FCTTRE.h"
    435435    INCLUDE "compbl.h"

  • LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90

    r5282 r5284  
    5959          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    6060          , RALPD, RBETD, RGAMD
     61  USE alpale_mod
    6162IMPLICIT none
    6263  !======================================================================
    … …  
    6465  ! Objet: Lecture de l'etat initial pour la physique
    6566  !======================================================================
    66   include "alpale.h"
    6767  include "compbl.h"
    6868

  • LMDZ6/trunk/libf/phylmd/phyredem.f90

    r5282 r5284  
    99! Purpose: Write restart state for physics.
    1010!-------------------------------------------------------------------------------
    11   USE clesphys_mod_h
     11USE alpale_mod
     12    USE clesphys_mod_h
    1213  USE dimphy, ONLY: klon, klev
    1314  USE fonte_neige_mod,  ONLY : fonte_neige_final
    … …  
    4647  USE dimsoil_mod_h, ONLY: nsoilmx
    4748  IMPLICIT none
    48   include "alpale.h"
    4949  include "compbl.h"
    5050  !======================================================================

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r5282 r5284  
    470470    USE YOESW, ONLY : RSUN
    471471#endif
    472     USE clesphys_mod_h
     472USE alpale_mod
     473        USE clesphys_mod_h
    473474    USE tracinca_mod, ONLY: config_inca
    474475    USE config_ocean_skin_m, ONLY: activate_ocean_skin
    … …  
    491492IMPLICIT NONE
    492493
    493     INCLUDE "alpale.h"
    494494    INCLUDE "compbl.h"
    495495

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5283 r5284  
    372372       USE clesphys_mod_h
    373373       USE conema3_mod_h
     374       USE alpale_mod
     375       USE yoethf_mod_h
    374376
    375377    IMPLICIT NONE
    … …  
    425427
    426428    include "regdim.h"
    427     include "alpale.h"
    428429    include "dimpft.h"
    429430    !======================================================================
    … …  
    11831184                 ! the ozone fields, old method.
    11841185
    1185     include "YOETHF.h"
    11861186    include "FCTTRE.h"
    11871187    include "nuage.h"

  • LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

    r5282 r5284  
    9999          , RALPD, RBETD, RGAMD
    100100    USE clesphys_mod_h
     101    USE yoethf_mod_h
    101102
    102103    !======================================================================
    … …  
    203204    ! DECLARATIONS
    204205    ! ==============
    205     include "YOETHF.h"
    206206
    207207    ! Input arguments

  • LMDZ6/trunk/libf/phylmd/reevap.f90

    r5274 r5284  
    1717          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1818          , RALPD, RBETD, RGAMD
     19    USE yoethf_mod_h
    1920IMPLICIT none
    2021    !>======================================================================
    … …  
    3031    !---Propri\'et\'es du thermiques au LCL
    3132
    32     include "YOETHF.h"
    3333    include "FCTTRE.h"
    3434    !IM 100106 BEG : pouvoir sortir les ctes de la physique

  • LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90

    r5274 r5284  
    3232                           ts1, qsurf, z0m, z0h, psol, pat1, &
    3333                           t_2m, q_2m, t_10m, q_10m, u_10m, ustar, s_pblh, prain, tsol)
     34        USE yoethf_mod_h
    3435      IMPLICIT NONE
    3536!-------------------------------------------------------------------------
    … …  
    8485!-------------------------------------------------------------------------
    8586      include "flux_arp.h"
    86 !IM PLUS
    87       include "YOETHF.h"
    8887!
    8988! Quelques constantes et options:
    … …  
    343342          , RALPD, RBETD, RGAMD
    344343      USE ioipsl_getin_p_mod, ONLY : getin_p
     344      USE yoethf_mod_h
    345345      IMPLICIT NONE
    346346!-------------------------------------------------------------------------
    … …  
    404404!-------------------------------------------------------------------------
    405405      include "flux_arp.h"
    406 !IM PLUS
    407       include "YOETHF.h"
    408406!
    409407! Quelques constantes et options:

  • LMDZ6/trunk/libf/phylmd/suphel.f90

    r5274 r5284  
    44SUBROUTINE suphel
    55
    6   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6USE yoethf_mod_h
     7    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    78          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    89          , R_ecc, R_peri, R_incl                                      &
    … …  
    1920
    2021
    21   include "YOETHF.h"
    2222  ! IM cf. JLD
    2323  LOGICAL firstcall

  • LMDZ6/trunk/libf/phylmd/wx_pbl_mod.f90

    r5282 r5284  
    3232!
    3333
    34     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     34USE yoethf_mod_h
     35        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    3536          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    3637          , R_ecc, R_peri, R_incl                                      &
    … …  
    5152
    5253    INCLUDE "FCTTRE.h"
    53     INCLUDE "YOETHF.h"
    5454!
    5555    INTEGER,                      INTENT(IN)        :: knon    ! number of grid cells
    … …  
    180180!
    181181
    182     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     182USE yoethf_mod_h
     183        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    183184          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    184185          , R_ecc, R_peri, R_incl                                      &
    … …  
    198199
    199200    INCLUDE "FCTTRE.h"
    200     INCLUDE "YOETHF.h"
    201201!
    202202    INTEGER,                      INTENT(IN)        :: knon    ! number of grid cells
    … …  
    759759!
    760760
    761     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     761USE yoethf_mod_h
     762        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    762763          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    763764          , R_ecc, R_peri, R_incl                                      &
    … …  
    777778
    778779    INCLUDE "FCTTRE.h"
    779     INCLUDE "YOETHF.h"
    780780!
    781781    INTEGER,                      INTENT(IN)        :: knon         ! number of grid cells
    … …  
    10151015!
    10161016
    1017     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1017USE yoethf_mod_h
     1018        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    10181019          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    10191020          , R_ecc, R_peri, R_incl                                      &
    … …  
    10331034
    10341035    INCLUDE "FCTTRE.h"
    1035     INCLUDE "YOETHF.h"
    10361036!
    10371037    INTEGER,                      INTENT(IN)        :: knon         ! number of grid cells

  • LMDZ6/trunk/libf/phylmd/wx_pbl_var_mod.f90

    r5282 r5284  
    315315                                 )
    316316!
    317     USE clesphys_mod_h
     317USE yoethf_mod_h
     318        USE clesphys_mod_h
    318319    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    319320          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    333334
    334335    INCLUDE "FCTTRE.h"
    335     INCLUDE "YOETHF.h"
    336336!
    337337    INTEGER,                      INTENT(IN)        :: knon    ! number of grid cells

  • LMDZ6/trunk/libf/phylmd/yoethf_mod_h.f90

    r5283 r5284  
    1 !
    2 ! $Id$
    3 !
    4 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    5 !                 veillez  n'utiliser que des ! pour les commentaires
    6 !                 et  bien positionner les & des lignes de continuation
    7 !                 (les placer en colonne 6 et en colonne 73)
    8 !
    9 !*    COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
    10 !
    11 !     *R__ES*   *CONSTANTS USED FOR COMPUTATION OF SATURATION
    12 !                MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
    13 !                ICE(*R_IES*).
    14 !     *RVTMP2*  *RVTMP2=RCPV/RCPD-1.
    15 !     *RHOH2O*  *DENSITY OF LIQUID WATER.   (RATM/100.)
    16 !
    17       REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
    18       REAL RVTMP2, RHOH2O
    19       REAL R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,RALFDCP,RTWAT,RTBER,RTBERCU
    20       REAL RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,RKOOP2
    21       LOGICAL OK_BAD_ECMWF_THERMO ! If TRUE, then variables set by rrtm/suphec.F90
    22                                   ! If FALSE, then variables set by suphel.F90
    23       COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
    24      &               RVTMP2, RHOH2O,                                    &
    25      &               R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,                   &
    26      &               RALFDCP,RTWAT,RTBER,RTBERCU,                       &
    27      &               RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,&
    28      &               RKOOP2,                                            &
    29      &               OK_BAD_ECMWF_THERMO
     1! Replaces yoethf.h
    302
    31 !$OMP THREADPRIVATE(/YOETHF/)
     3MODULE yoethf_mod_h
     4  !*    COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
     5
     6  !     *R__ES*   *CONSTANTS USED FOR COMPUTATION OF SATURATION
     7  !                MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
     8  !                ICE(*R_IES*).
     9  !     *RVTMP2*  *RVTMP2=RCPV/RCPD-1.
     10  !     *RHOH2O*  *DENSITY OF LIQUID WATER.   (RATM/100.)
     11  IMPLICIT NONE; PRIVATE
     12  PUBLIC R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, RVTMP2, RHOH2O, R5ALVCP, &
     13          R5ALSCP, RALVDCP, RALSDCP, RALFDCP, RTWAT, RTBER, RTBERCU, RTICE, RTICECU, &
     14          RTWAT_RTICE_R, RTWAT_RTICECU_R, RKOOP1, RKOOP2, OK_BAD_ECMWF_THERMO
     15
     16  REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
     17  REAL RVTMP2, RHOH2O
     18  REAL R5ALVCP, R5ALSCP, RALVDCP, RALSDCP, RALFDCP, RTWAT, RTBER, RTBERCU
     19  REAL RTICE, RTICECU, RTWAT_RTICE_R, RTWAT_RTICECU_R, RKOOP1, RKOOP2
     20  LOGICAL OK_BAD_ECMWF_THERMO ! If TRUE, then variables set by rrtm/suphec.F90
     21  ! If FALSE, then variables set by suphel.F90
     22
     23  !$OMP THREADPRIVATE(R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, RVTMP2, RHOH2O, R5ALVCP, &
     24  !$OMP      R5ALSCP, RALVDCP, RALSDCP, RALFDCP, RTWAT, RTBER, RTBERCU, RTICE, RTICECU,&
     25  !$OMP      RTWAT_RTICE_R, RTWAT_RTICECU_R, RKOOP1, RKOOP2, OK_BAD_ECMWF_THERMO)
     26END MODULE yoethf_mod_h

  • LMDZ6/trunk/libf/phylmdiso/alpale_mod.f90

    r5283 r5284  
    1 link ../phylmd/alpale.f90
     1link ../phylmd/alpale_mod.f90

  • LMDZ6/trunk/libf/phylmdiso/concvl.F90

    r5283 r5284  
    7777          , RALPD, RBETD, RGAMD
    7878  USE conema3_mod_h
     79  USE yoethf_mod_h
    7980  IMPLICIT NONE
    8081! ======================================================================
    … …  
    309310!$OMP THREADPRIVATE(itap, igout)
    310311  include "YOMCST2.h"
    311   include "YOETHF.h"
    312312  include "FCTTRE.h"
    313313

  • LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90

    r5276 r5284  
    3232          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    3333          , RALPD, RBETD, RGAMD
     34USE yoethf_mod_h
    3435IMPLICIT NONE
    3536  ! ==============================================================
    … …  
    4243
    4344  ! ===============================================================
    44 
    45   include "YOETHF.h"
    4645
    4746  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90

    r5276 r5284  
    3333          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    3434          , RALPD, RBETD, RGAMD
     35USE yoethf_mod_h
    3536IMPLICIT NONE
    3637  ! ==============================================================
    … …  
    4344
    4445  ! ===============================================================
    45 
    46   include "YOETHF.h"
    4746
    4847  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

    r5282 r5284  
    1298112981    USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso
    1298212982#endif
     12983USE yoethf_mod_h
    1298312984        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1298412985          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    1300013001        ! commun aux dfférentes sous-surfaces.
    1300113002
    13002 INCLUDE "YOETHF.h"
    1300313003INCLUDE "FCTTRE.h"
    1300413004!
    … …  
    1356513565&       bassin_map
    1356613566#endif
     13567USE yoethf_mod_h
    1356713568        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1356813569          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    1357913580implicit none
    1358013581
    13581 INCLUDE "YOETHF.h"
    1358213582INCLUDE "FCTTRE.h"
    1358313583
    … …  
    1449214492#endif
    1449314493
     14494USE yoethf_mod_h
    1449414495        USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1449514496USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1450914510implicit none
    1451014511
    14511 INCLUDE "YOETHF.h"
    1451214512INCLUDE "FCTTRE.h"
    1451314513

  • LMDZ6/trunk/libf/phylmdiso/lmdz_lscp_old.F90

    r5274 r5284  
    8080          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    8181          , RALPD, RBETD, RGAMD
     82  USE yoethf_mod_h
    8283  IMPLICIT none
    8384  !======================================================================
    … …  
    324325  REAL zzz
    325326
    326   include "YOETHF.h"
    327327  include "FCTTRE.h"
    328328  fallvc (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_con

  • LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

    r5282 r5284  
    7474          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    7575          , RALPD, RBETD, RGAMD
     76  USE alpale_mod
    7677IMPLICIT none
    7778  !======================================================================
    … …  
    7980  ! Objet: Lecture de l'etat initial pour la physique
    8081  !======================================================================
    81   include "alpale.h"
    8282  include "compbl.h"
    8383

  • LMDZ6/trunk/libf/phylmdiso/phyredem.F90

    r5282 r5284  
    4646#endif
    4747#endif
    48   USE clesphys_mod_h
     48USE alpale_mod
     49    USE clesphys_mod_h
    4950  USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo
    5051  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic, epsfra
    … …  
    5657
    5758  IMPLICIT none
    58   include "alpale.h"
    5959  include "compbl.h"
    6060  !======================================================================
    … …  
    512512    use isotrac_mod, only: index_zone,index_iso,strtrac
    513513#endif
     514USE alpale_mod
    514515      USE clesphys_mod_h
    515516USE dimsoil_mod_h, ONLY: nsoilmx
    … …  
    517518
    518519        ! equivalent isotopique de phyredem
    519 INCLUDE "alpale.h"
    520520INCLUDE "compbl.h"
    521521      ! inputs

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5283 r5284  
    445445       USE clesphys_mod_h
    446446       USE conema3_mod_h
     447       USE alpale_mod
     448    USE yoethf_mod_h
    447449
    448450    IMPLICIT NONE
    … …  
    498500
    499501    include "regdim.h"
    500     include "alpale.h"
    501502    include "dimpft.h"
    502503    !======================================================================
    … …  
    12931294                 ! the ozone fields, old method.
    12941295
    1295     include "YOETHF.h"
    12961296    include "FCTTRE.h"
    12971297    !IM 100106 BEG : pouvoir sortir les ctes de la physique

  • LMDZ6/trunk/libf/phylmdiso/reevap.F90

    r5274 r5284  
    2727          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2828          , RALPD, RBETD, RGAMD
     29    USE yoethf_mod_h
    2930IMPLICIT none
    3031    !>======================================================================
    … …  
    4344    !---Propri\'et\'es du thermiques au LCL
    4445
    45     include "YOETHF.h"
    4646    include "FCTTRE.h"
    4747    !IM 100106 BEG : pouvoir sortir les ctes de la physique

  • LMDZ6/trunk/libf/phylmdiso/yoethf_mod_h.f90

    r5283 r5284  
    1 link ../phylmd/YOETHF.h
     1link ../phylmd/yoethf_mod_h.f90
Note: See TracChangeset for help on using the changeset viewer.