Ignore:
Timestamp:
Jul 31, 2024, 6:20:03 PM (3 months ago)
Author:
abarral
Message:

Revert FCTTRE to INCLUDE to assess impact of inlining

Location:
LMDZ6/branches/Amaury_dev/libf
Files:
1 added
40 edited
1 copied

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bl_for_dms.f90

    r5144 r5153  
    33  USE dimphy
    44  USE lmdz_yoethf
    5   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     5
    66  USE lmdz_yomcst
    77
    88  IMPLICIT NONE
     9 INCLUDE "FCTTRE.h"
    910  !
    1011  !===================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/FCTTRE.h

    r5144 r5153  
    1 MODULE lmdz_fcttre
    2   !     ------------------------------------------------------------------
    3   !     This COMDECK includes the Thermodynamical functions for the cy39
    4   !       ECMWF Physics package.
    5   !       Consistent with YOMCST Basic physics constants, assuming the
    6   !       partial pressure of water vapour is given by a first order
    7   !       Taylor expansion of Qs(T) w.r.t. to Temperature, using constants
    8   !       in YOETHF
    9   !     ------------------------------------------------------------------
    10 
    11   IMPLICIT NONE; PRIVATE
    12   PUBLIC foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    13 
    14   LOGICAL, PARAMETER :: thermcep = .TRUE.
    15 
    16 CONTAINS
    17 
    18   REAL FUNCTION foeew (ptarg, pdelarg)
    19     USE lmdz_yoethf, ONLY: r3ies, r3les, r4ies, r4les
    20     USE lmdz_yomcst, ONLY: rtt
    21     REAL, INTENT(IN) :: ptarg, pdelarg
    22     foeew = exp ((r3les * (1. - pdelarg) + r3ies * pdelarg) * (ptarg - rtt) &
    23             / (ptarg - (r4les * (1. - pdelarg) + r4ies * pdelarg)))
    24   END FUNCTION foeew
    25 
    26   REAL FUNCTION foede (ptarg, pdelarg, p5arg, pqsarg, pcoarg)
    27     USE lmdz_yoethf, ONLY: r4ies, r4les
    28     REAL, INTENT(IN) :: ptarg, pdelarg, p5arg, pqsarg, pcoarg
    29     foede = pqsarg * pcoarg * p5arg / (ptarg - (r4les * (1. - pdelarg) + r4ies * pdelarg))**2
    30   END FUNCTION foede
    31 
    32   REAL FUNCTION qsats(ptarg)
    33     REAL, INTENT(IN) :: ptarg
    34     qsats = 100.0 * 0.622 * 10.0 ** (2.07023 - 0.00320991 * ptarg - 2484.896 / ptarg + 3.56654 * log10(ptarg))
    35   END FUNCTION qsats
    36 
    37   REAL FUNCTION qsatl(ptarg)
    38     REAL, INTENT(IN) :: ptarg
    39     qsatl = 100.0 * 0.622 * 10.0 ** (23.8319 - 2948.964 / ptarg - 5.028 * log10(ptarg) &
    40             - 29810.16 * exp(- 0.0699382 * ptarg) + 25.21935 * exp(- 2999.924 / ptarg))
    41   END FUNCTION qsatl
    42 
    43   REAL FUNCTION dqsats(ptarg, pqsarg)
    44     USE lmdz_yomcst, ONLY: rlvtt, rcpd
    45     REAL, INTENT(IN) :: ptarg, pqsarg
    46     dqsats = rlvtt / rcpd * pqsarg * (3.56654 / ptarg + 2484.896 * log(10.) / ptarg**2 - 0.00320991 * log(10.))
    47   END FUNCTION dqsats
    48 
    49   REAL FUNCTION dqsatl(ptarg, pqsarg)
    50     USE lmdz_yomcst, ONLY: rlvtt, rcpd
    51     REAL, INTENT(IN) :: ptarg, pqsarg
    52     dqsatl = rlvtt / rcpd * pqsarg * log(10.) * (2948.964 / ptarg**2 - 5.028 / log(10.) / ptarg &
    53             + 25.21935 * 2999.924 / ptarg**2 * exp(-2999.924 / ptarg) + &
    54             29810.16 * 0.0699382 * exp(-0.0699382 * ptarg))
    55   END FUNCTION dqsatl
    56 
    57 END MODULE lmdz_fcttre
     1!
     2! $Header$
     3!
     4!
     5!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
     6!                 veillez  n'utiliser que des ! pour les commentaires
     7!                 et  bien positionner les & des lignes de continuation
     8!                 (les placer en colonne 6 et en colonne 73)
     9!
     10!     ------------------------------------------------------------------
     11!     This COMDECK includes the Thermodynamical functions for the cy39
     12!       ECMWF Physics package.
     13!       Consistent with YOMCST Basic physics constants, assuming the
     14!       partial pressure of water vapour is given by a first order
     15!       Taylor expansion of Qs(T) w.r.t. to Temperature, using constants
     16!       in YOETHF
     17!     ------------------------------------------------------------------
     18      REAL PTARG, PDELARG, P5ARG, PQSARG, PCOARG
     19      REAL FOEEW, FOEDE, qsats, qsatl, dqsats, dqsatl
     20      LOGICAL thermcep
     21      PARAMETER (thermcep=.TRUE.)
     22!
     23      FOEEW ( PTARG,PDELARG ) = EXP (                                   &
     24     &          (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT)        &
     25     & / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) )
     26!
     27      FOEDE ( PTARG,PDELARG,P5ARG,PQSARG,PCOARG ) = PQSARG*PCOARG*P5ARG &
     28     & / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG))**2
     29!
     30      qsats(ptarg) = 100.0 * 0.622 * 10.0                               &
     31     &           ** (2.07023 - 0.00320991 * ptarg                       &
     32     &           - 2484.896 / ptarg + 3.56654 * LOG10(ptarg))
     33      qsatl(ptarg) = 100.0 * 0.622 * 10.0                               &
     34     &           ** (23.8319 - 2948.964 / ptarg                         &
     35     &           - 5.028 * LOG10(ptarg)                                 &
     36     &           - 29810.16 * EXP( - 0.0699382 * ptarg)                 &
     37     &           + 25.21935 * EXP( - 2999.924 / ptarg))
     38!
     39      dqsats(ptarg,pqsarg) = RLVTT/RCPD*pqsarg * (3.56654/ptarg         &
     40     &                     +2484.896*LOG(10.)/ptarg**2                  &
     41     &                     -0.00320991*LOG(10.))
     42      dqsatl(ptarg,pqsarg) = RLVTT/RCPD*pqsarg*LOG(10.)*                &
     43     &                (2948.964/ptarg**2-5.028/LOG(10.)/ptarg           &
     44     &                +25.21935*2999.924/ptarg**2*EXP(-2999.924/ptarg)  &
     45     &                +29810.16*0.0699382*EXP(-0.0699382*ptarg))

  • LMDZ6/branches/Amaury_dev/libf/phylmd/borne_var_surf.F90

    r5144 r5153  
    88
    99  USE lmdz_yoethf
    10   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     10
    1111  USE lmdz_yomcst
    1212
    1313  IMPLICIT NONE
     14 INCLUDE "FCTTRE.h"
    1415
    1516  !==================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_fluxs_mod.F90

    r5144 r5153  
    1919    USE lmdz_clesphys
    2020    USE lmdz_yoethf
    21     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     21
    2222    USE lmdz_yomcst
     23
     24    IMPLICIT NONE
     25 INCLUDE "FCTTRE.h"
    2326
    2427    ! Cette routine calcule les fluxs en h et q a l'interface et eventuellement

  • LMDZ6/branches/Amaury_dev/libf/phylmd/coef_diff_turb_mod.F90

    r5144 r5153  
    208208    USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    209209    USE lmdz_yoethf
    210     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     210
    211211    USE lmdz_yomcst
     212
     213    IMPLICIT NONE
     214 INCLUDE "FCTTRE.h"
    212215
    213216    !======================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/conccm.F90

    r5144 r5153  
    138138  USE dimphy
    139139  USE lmdz_yoethf
    140   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     140
    141141  USE lmdz_yomcst
    142142
    143143  IMPLICIT NONE
     144 INCLUDE "FCTTRE.h"
    144145  ! -----------------------------------------------------------------------
    145146  ! Moist convective mass flux procedure:

  • LMDZ6/branches/Amaury_dev/libf/phylmd/concvl.F90

    r5144 r5153  
    3636  USE lmdz_conema3
    3737  USE lmdz_yoethf
    38   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     38
    3939  USE lmdz_yomcst
    4040
    4141  IMPLICIT NONE
     42 INCLUDE "FCTTRE.h"
    4243  ! ======================================================================
    4344  ! Auteur(s): S. Bony-Lena (LMD/CNRS) date: ???

  • LMDZ6/branches/Amaury_dev/libf/phylmd/conemav.F90

    r5144 r5153  
    88  USE infotrac_phy, ONLY: nbtr
    99  USE lmdz_yoethf
    10   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     10
    1111  USE lmdz_yomcst
    1212
    1313  IMPLICIT NONE
     14 INCLUDE "FCTTRE.h"
    1415  ! ======================================================================
    1516  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818

  • LMDZ6/branches/Amaury_dev/libf/phylmd/conflx.F90

    r5144 r5153  
    77  USE dimphy
    88  USE lmdz_yoethf
    9   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     9
    1010  USE lmdz_yomcst
    1111
    1212  IMPLICIT NONE
     13 INCLUDE "FCTTRE.h"
    1314  ! ======================================================================
    1415  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19941014
    … …  
    981982  USE lmdz_YOECUMF
    982983  USE lmdz_yoethf
    983   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     984
    984985  USE lmdz_yomcst
    985986
    986987  IMPLICIT NONE
     988 INCLUDE "FCTTRE.h"
    987989  ! ----------------------------------------------------------------------
    988990  ! THIS ROUTINE DOES THE FINAL CALCULATION OF CONVECTIVE
    … …  
    15041506  USE dimphy
    15051507  USE lmdz_yoethf
    1506   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     1508
    15071509  USE lmdz_yomcst
    15081510
    15091511  IMPLICIT NONE
     1512 INCLUDE "FCTTRE.h"
    15101513  ! ======================================================================
    15111514  ! Objet: ajustement entre T et Q

  • LMDZ6/branches/Amaury_dev/libf/phylmd/conlmd.F90

    r5144 r5153  
    9191  USE dimphy
    9292  USE lmdz_yoethf
    93   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     93
    9494  USE lmdz_yomcst
    9595
    9696  IMPLICIT NONE
     97 INCLUDE "FCTTRE.h"
    9798  ! ======================================================================
    9899  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19970324
    … …  
    297298  USE dimphy
    298299  USE lmdz_yoethf
    299   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     300
    300301  USE lmdz_yomcst
    301302
    302303  IMPLICIT NONE
     304 INCLUDE "FCTTRE.h"
    303305  ! ======================================================================
    304306  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    10441046  USE dimphy
    10451047  USE lmdz_yoethf
    1046   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     1048
    10471049  USE lmdz_yomcst
    10481050
    10491051  IMPLICIT NONE
     1052 INCLUDE "FCTTRE.h"
    10501053  ! ======================================================================
    10511054  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    16511654  USE dimphy
    16521655  USE lmdz_yoethf
    1653   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     1656
    16541657  USE lmdz_yomcst
    16551658
    16561659  IMPLICIT NONE
     1660 INCLUDE "FCTTRE.h"
    16571661  ! ======================================================================
    16581662  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19940927
    … …  
    17581762  USE dimphy
    17591763  USE lmdz_yoethf
    1760   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     1764
    17611765  USE lmdz_yomcst
    17621766
    17631767  IMPLICIT NONE
     1768 INCLUDE "FCTTRE.h"
    17641769
    17651770  ! Ajustement humide (Schema de convection de Manabe)
    … …  
    20402045  USE dimphy
    20412046  USE lmdz_yoethf
    2042   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     2047
    20432048  USE lmdz_yomcst
    20442049
    20452050  IMPLICIT NONE
     2051 INCLUDE "FCTTRE.h"
    20462052
    20472053  ! Options:

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cv3_enthalpmix.F90

    r5144 r5153  
    1111  USE lmdz_cvthermo
    1212  USE lmdz_yoethf
    13   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     13
    1414  USE lmdz_yomcst
    1515
    1616  IMPLICIT NONE
     17 INCLUDE "FCTTRE.h"
    1718  ! ==============================================================
    1819

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cv3_estatmix.F90

    r5144 r5153  
    1313USE lmdz_cvthermo
    1414USE lmdz_yoethf
    15 USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     15
    1616USE lmdz_yomcst
    1717
    1818  IMPLICIT NONE
     19 INCLUDE "FCTTRE.h"
    1920  ! ==============================================================
    2021

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

    r5144 r5153  
    13211321    USE dimphy
    13221322    USE lmdz_yoethf
    1323     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     1323
    13241324    USE lmdz_yomcst
    13251325
    13261326    IMPLICIT NONE
     1327 INCLUDE "FCTTRE.h"
    13271328
    13281329    ! ========================================================
    … …  
    13941395    USE dimphy
    13951396    USE lmdz_yoethf
    1396     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     1397
    13971398    USE lmdz_yomcst
    13981399
    13991400    IMPLICIT NONE
     1401 INCLUDE "FCTTRE.h"
    14001402
    14011403    ! ========================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/evappot.F90

    r5144 r5153  
    22        t_seri, q_seri, u_seri, v_seri, evap_pot)
    33  USE lmdz_yoethf
    4   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     4
    55  USE lmdz_yomcst
    66
    77  IMPLICIT NONE
     8 INCLUDE "FCTTRE.h"
    89
    910  INTEGER :: klon, nbsrf

  • LMDZ6/branches/Amaury_dev/libf/phylmd/fisrtilp_tr.F90

    r5144 r5153  
    1010  USE lmdz_print_control, ONLY: lunout
    1111  USE lmdz_yoethf
    12   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     12
    1313  USE lmdz_yomcst
    1414
    1515  IMPLICIT NONE
     16 INCLUDE "FCTTRE.h"
    1617  ! ======================================================================
    1718  ! Auteur(s): Z.X. Li (LMD/CNRS)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/fonte_neige_mod.F90

    r5144 r5153  
    249249#endif
    250250#endif
    251   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     251
    252252  USE lmdz_yomcst
     253
     254  IMPLICIT NONE
     255 INCLUDE "FCTTRE.h"
    253256       
    254257! Routine de traitement de la fonte de la neige dans le cas du traitement

  • LMDZ6/branches/Amaury_dev/libf/phylmd/hbtm2l.F90

    r5144 r5153  
    55  USE dimphy
    66  USE lmdz_yoethf
    7   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     7
    88  USE lmdz_yomcst
    99
    1010  IMPLICIT NONE
     11 INCLUDE "FCTTRE.h"
    1112
    1213  ! ***************************************************************

  • LMDZ6/branches/Amaury_dev/libf/phylmd/hbtm_mod.F90

    r5144 r5153  
    1010    USE dimphy
    1111    USE lmdz_yoethf
    12     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     12
    1313    USE lmdz_yomcst
    1414
    1515    IMPLICIT NONE
     16 INCLUDE "FCTTRE.h"
    1617
    1718    ! ***************************************************************

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ice_sursat_mod.F90

    r5144 r5153  
    304304    USE lmdz_clesphys
    305305    USE lmdz_yoethf
    306     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     306
    307307    USE lmdz_yomcst
    308308
    309309    IMPLICIT NONE
     310 INCLUDE "FCTTRE.h"
    310311
    311312    ! Input

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_ts2.f90

    r5144 r5153  
    6868  USE lmdz_comsoil, ONLY: inertie_sol, inertie_sno, inertie_sic, inertie_lic, iflag_sic, iflag_inertie
    6969  USE lmdz_yoethf
    70   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     70
    7171  USE lmdz_yomcst
    7272
    7373  IMPLICIT NONE
     74 INCLUDE "FCTTRE.h"
    7475
    7576

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_cloudth.F90

    r5144 r5153  
    1313    USE lmdz_cloudth_ini, ONLY: iflag_cloudth_vert, iflag_ratqs
    1414    USE lmdz_yoethf
    15     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     15
    1616    USE lmdz_yomcst
    1717
    1818    IMPLICIT NONE
     19 INCLUDE "FCTTRE.h"
    1920
    2021
    … …  
    246247    USE lmdz_cloudth_ini, ONLY: iflag_cloudth_vert, vert_alpha
    247248    USE lmdz_yoethf
    248     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     249
    249250    USE lmdz_yomcst
    250251
    251252    IMPLICIT NONE
     253 INCLUDE "FCTTRE.h"
    252254
    253255    INTEGER itap, ind1, ind2
    … …  
    545547    USE lmdz_cloudth_ini, ONLY: iflag_cloudth_vert
    546548    USE lmdz_yoethf
    547     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     549
    548550    USE lmdz_yomcst
    549551
    550552    IMPLICIT NONE
     553 INCLUDE "FCTTRE.h"
    551554
    552555
    … …  
    770773    USE lmdz_cloudth_ini, ONLY: vert_alpha, vert_alpha_th, sigma1s_factor, sigma1s_power, sigma2s_factor, sigma2s_power, cloudth_ratqsmin, iflag_cloudth_vert_noratqs
    771774    USE lmdz_yoethf
    772     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     775
    773776    USE lmdz_yomcst
    774777
    775778    IMPLICIT NONE
     779 INCLUDE "FCTTRE.h"
    776780
    777781    INTEGER itap, ind1, ind2
    … …  
    11681172    USE lmdz_cloudth_ini, ONLY: iflag_cloudth_vert
    11691173    USE lmdz_yoethf
    1170     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     1174
    11711175    USE lmdz_yomcst
    11721176
    11731177    IMPLICIT NONE
     1178 INCLUDE "FCTTRE.h"
    11741179
    11751180    !Domain variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_conema3.f90

    r5144 r5153  
    2828    USE infotrac_phy, ONLY: nbtr
    2929    USE lmdz_yoethf
    30     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     30
    3131    USE lmdz_yomcst
    3232
    3333    IMPLICIT NONE
     34 INCLUDE "FCTTRE.h"
    3435    ! ======================================================================
    3536    ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_old.F90

    r5144 r5153  
    2525  USE lmdz_lscp_ini, ONLY: reevap_ice, iflag_bergeron, iflag_fisrtilp_qsat, iflag_pdf
    2626  USE lmdz_yoethf
    27   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     27
    2828  USE lmdz_yomcst
    2929
    3030  IMPLICIT NONE
     31 INCLUDE "FCTTRE.h"
    3132  !======================================================================
    3233  ! Auteur(s): Z.X. Li (LMD/CNRS)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_lscp_tools.F90

    r5144 r5153  
    499499    !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    500500    USE lmdz_yoethf
    501     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     501
    502502    USE lmdz_yomcst
    503503
    504504    IMPLICIT NONE
     505 INCLUDE "FCTTRE.h"
    505506
    506507    INTEGER, INTENT(IN) :: klon  ! number of horizontal grid points

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_alp.F90

    r5144 r5153  
    2323    USE lmdz_alpale
    2424    USE lmdz_yoethf
    25     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     25
    2626    USE lmdz_yomcst
    2727
    2828    IMPLICIT NONE
     29 INCLUDE "FCTTRE.h"
    2930
    3031    !=======================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_old.F90

    r5144 r5153  
    713713    USE dimphy
    714714    USE lmdz_yoethf
    715     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     715
    716716    USE lmdz_yomcst
    717717
    718718    IMPLICIT NONE
     719 INCLUDE "FCTTRE.h"
    719720
    720721    ! =======================================================================
    … …  
    23042305    USE dimphy
    23052306    USE lmdz_yoethf
    2306     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     2307
    23072308    USE lmdz_yomcst
    23082309
    23092310    IMPLICIT NONE
     2311 INCLUDE "FCTTRE.h"
    23102312
    23112313    ! =======================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_qsat.F90

    r5144 r5153  
    44  SUBROUTINE thermcell_qsat(klon, active, pplev, ztemp, zqta, zqsat)
    55    USE lmdz_yoethf
    6     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     6
    77    USE lmdz_yomcst
    88
    99    IMPLICIT NONE
     10 INCLUDE "FCTTRE.h"
    1011
    1112    !====================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/nonlocal.F90

    r5144 r5153  
    66  USE dimphy
    77  USE lmdz_yoethf
    8   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     8
    99  USE lmdz_yomcst
    1010
    1111  IMPLICIT NONE
     12 INCLUDE "FCTTRE.h"
    1213  ! ======================================================================
    1314  ! Laurent Li (LMD/CNRS), le 30 septembre 1998

  • LMDZ6/branches/Amaury_dev/libf/phylmd/nuage.F90

    r5144 r5153  
    340340  USE dimphy
    341341  USE lmdz_yoethf
    342   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     342
    343343  USE lmdz_yomcst
    344344
    345345  IMPLICIT NONE
     346 INCLUDE "FCTTRE.h"
    346347
    347348  ! Arguments d'entree:

  • LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_mod.F90

    r5144 r5153  
    419419  USE lmdz_dimpft, ONLY: nvm_lmdz
    420420  USE lmdz_yoethf
    421   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     421
    422422  USE lmdz_yomcst
    423423
    424424    IMPLICIT NONE
     425 INCLUDE "FCTTRE.h"
    425426
    426427    INCLUDE "dimsoil.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/physiq_mod.F90

    r5151 r5153  
    356356    USE lmdz_dimpft, ONLY: nvm_lmdz
    357357    USE lmdz_yoethf
    358     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     358
    359359    USE lmdz_yomcst
    360360
    361361    IMPLICIT NONE
     362 INCLUDE "FCTTRE.h"
    362363    !>======================================================================
    363364    !!

  • LMDZ6/branches/Amaury_dev/libf/phylmd/reevap.F90

    r5144 r5153  
    55  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    66  USE lmdz_yoethf
    7   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     7
    88  USE lmdz_yomcst
    99
    1010  IMPLICIT NONE
     11 INCLUDE "FCTTRE.h"
    1112  !>======================================================================
    1213

  • LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_mod.F90

    r5144 r5153  
    3636    USE lmdz_clesphys
    3737    USE lmdz_yoethf
    38     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     38
    3939    USE lmdz_yomcst
    4040
    4141    IMPLICIT NONE
     42 INCLUDE "FCTTRE.h"
    4243
    4344    INTEGER, INTENT(IN) :: knon    ! number of grid cells
    … …  
    166167    USE lmdz_print_control, ONLY: prt_level, lunout
    167168    USE lmdz_yoethf
    168     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     169
    169170    USE lmdz_yomcst
    170171
    171172    IMPLICIT NONE
     173 INCLUDE "FCTTRE.h"
    172174
    173175    INTEGER, INTENT(IN) :: knon    ! number of grid cells
    … …  
    715717    USE lmdz_print_control, ONLY: prt_level, lunout
    716718    USE lmdz_yoethf
    717     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     719
    718720    USE lmdz_yomcst
    719721
    720722    IMPLICIT NONE
     723 INCLUDE "FCTTRE.h"
    721724
    722725    INTEGER, INTENT(IN) :: knon         ! number of grid cells
    … …  
    956959    USE lmdz_print_control, ONLY: prt_level, lunout
    957960    USE lmdz_yoethf
    958     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     961
    959962    USE lmdz_yomcst
    960963
    961964    IMPLICIT NONE
     965 INCLUDE "FCTTRE.h"
    962966
    963967    INTEGER, INTENT(IN) :: knon         ! number of grid cells

  • LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_var_mod.F90

    r5144 r5153  
    319319    USE lmdz_clesphys
    320320    USE lmdz_yoethf
    321     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     321
    322322    USE lmdz_yomcst
    323323
    324324    IMPLICIT NONE
     325 INCLUDE "FCTTRE.h"
    325326
    326327    INTEGER, INTENT(IN) :: knon    ! number of grid cells

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/concvl.F90

    r5144 r5153  
    6666  USE lmdz_clesphys
    6767  USE lmdz_conema3
    68   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     68
    6969  USE lmdz_yomcst
    7070
    7171  IMPLICIT NONE
     72 INCLUDE "FCTTRE.h"
    7273! ======================================================================
    7374! Auteur(s): S. Bony-Lena (LMD/CNRS) date: ???

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_enthalpmix.F90

    r5144 r5153  
    1919USE lmdz_cvthermo
    2020USE lmdz_yoethf
    21 USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     21
    2222USE lmdz_yomcst
    2323
    2424  IMPLICIT NONE
     25 INCLUDE "FCTTRE.h"
    2526  ! ==============================================================
    2627

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3_estatmix.F90

    r5144 r5153  
    2020USE lmdz_cvthermo
    2121USE lmdz_yoethf
    22 USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     22
    2323USE lmdz_yomcst
    2424
    2525  IMPLICIT NONE
     26 INCLUDE "FCTTRE.h"
    2627  ! ==============================================================
    2728

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

    r5144 r5153  
    1284412844#endif
    1284512845USE lmdz_yoethf
    12846 USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     12846
    1284712847
    1284812848        IMPLICIT NONE
     12849 INCLUDE "FCTTRE.h"
    1284912850
    1285012851        ! gestion de la neige: on precipte dessus, sublime, effondre,
    … …  
    1340813409#endif
    1340913410USE lmdz_yoethf
    13410 USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     13411
    1341113412
    1341213413        IMPLICIT NONE
     13414 INCLUDE "FCTTRE.h"
    1341313415
    1341413416        ! inputs
    … …  
    1431914321#endif
    1432014322USE lmdz_yoethf
    14321 USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     14323
    1432214324
    1432314325        IMPLICIT NONE
     14326 INCLUDE "FCTTRE.h"
    1432414327
    1432514328        ! inputs

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_lscp_old.F90

    r5144 r5153  
    6969
    7070USE lmdz_yoethf
    71   USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     71
    7272  USE lmdz_yomcst
    7373
    7474  IMPLICIT NONE
     75 INCLUDE "FCTTRE.h"
    7576  !======================================================================
    7677  ! Auteur(s): Z.X. Li (LMD/CNRS)

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

    r5151 r5153  
    426426    USE lmdz_dimpft, ONLY: nvm_lmdz
    427427    USE lmdz_yoethf
    428     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     428
    429429    USE lmdz_yomcst
    430430
    431431    IMPLICIT NONE
     432 INCLUDE "FCTTRE.h"
    432433    !>======================================================================
    433434    !!

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/reevap.F90

    r5144 r5153  
    1717
    1818    USE lmdz_yoethf
    19     USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     19
    2020    USE lmdz_yomcst
    2121
    2222    IMPLICIT NONE
     23 INCLUDE "FCTTRE.h"
    2324    !>======================================================================
    2425
Note: See TracChangeset for help on using the changeset viewer.