Changeset 5284 for LMDZ6/trunk
- Timestamp:
- Oct 28, 2024, 2:12:55 PM (3 days ago)
- 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 96 96 USE phys_state_var_mod, ONLY: beta_aridity, delta_tsurf, awake_dens, cv_gen, & 97 97 ratqs_inter_ 98 !use ioipsl98 USE alpale_mod 99 99 IMPLICIT NONE 100 100 !------------------------------------------------------------------------------- … … 131 131 132 132 INCLUDE "compbl.h" 133 INCLUDE "alpale.h" 134 133 135 134 deg2rad= pi/180.0 136 135 iml=assert_eq(SIZE(masque,1),SIZE(phis,1),TRIM(modname)//" iml") -
LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90
r5274 r5284 15 15 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 16 16 , RALPD, RBETD, RGAMD 17 USE yoethf_mod_h 17 18 IMPLICIT NONE 18 19 ! … … 30 31 !=================================================================== 31 32 ! 32 33 34 INCLUDE "YOETHF.h"35 33 INCLUDE "FCTTRE.h" 36 34 ! -
LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90
r5282 r5284 89 89 ! defined and initialised mainly in phytracr_spl_mod.F90 (SPLA tracers, subroutine phytracr_spl_out_init) 90 90 91 USE dimphy, ONLY: klon, klev, klevp1 91 USE alpale_mod 92 USE dimphy, ONLY: klon, klev, klevp1 92 93 USE ocean_slab_mod, ONLY: nslay 93 94 USE control_mod, ONLY: day_step, iphysiq … … 411 412 412 413 ! INCLUDE "temps.h" 413 INCLUDE "alpale.h"414 414 INCLUDE "compbl.h" 415 416 417 415 418 416 ! Input -
LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
r5274 r5284 822 822 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 823 823 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 824 USE alpale_mod 825 USE yoethf_mod_h 824 826 IMPLICIT none 825 827 ! … … 838 840 INCLUDE "chem.h" 839 841 INCLUDE "chem_spla.h" 840 INCLUDE "YOETHF.h"841 INCLUDE "alpale.h"842 842 843 843 !====================================================================== -
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 3 MODULE 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 23 CONTAINS 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 74 84 75 85 76 86 !$OMP THREADPRIVATE(ale_max,alp_max) 77 87 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 106 158 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 208 216 END 209 217 218 END MODULE alpale_mod -
LMDZ6/trunk/libf/phylmd/alpale_th.f90
r5268 r5284 20 20 USE ioipsl_getin_p_mod, ONLY : getin_p 21 21 USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level 22 ! 22 USE alpale_mod 23 23 IMPLICIT NONE 24 24 … … 46 46 47 47 REAL, DIMENSION(klon), INTENT(OUT) :: birth_rate 48 49 include "alpale.h"50 48 51 49 ! Local variables -
LMDZ6/trunk/libf/phylmd/borne_var_surf.f90
r5274 r5284 19 19 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 20 20 , RALPD, RBETD, RGAMD 21 USE yoethf_mod_h 21 22 IMPLICIT NONE 22 23 … … 41 42 REAL :: zx_qs1, zcor1, zdelta1 42 43 43 include "YOETHF.h"44 44 include "FCTTRE.h" 45 45 !================================================================== -
LMDZ6/trunk/libf/phylmd/calcul_fluxs_mod.f90
r5282 r5284 32 32 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 33 33 , RALPD, RBETD, RGAMD 34 USE yoethf_mod_h 34 35 35 36 … … 72 73 ! lat_prec_sol precipitations solides 73 74 74 INCLUDE "YOETHF.h"75 75 INCLUDE "FCTTRE.h" 76 76 -
LMDZ6/trunk/libf/phylmd/cdrag_mod.f90
r5282 r5284 42 42 , RALPD, RBETD, RGAMD 43 43 USE clesphys_mod_h 44 44 USE yoethf_mod_h 45 45 IMPLICIT NONE 46 46 ! ================================================================= c … … 127 127 ! Variables Locales 128 128 !****************************************************************** 129 INCLUDE "YOETHF.h"130 131 129 132 130 REAL, PARAMETER :: CKAP=0.40, CKAPT=0.42 -
LMDZ6/trunk/libf/phylmd/clcdrag.f90
r5282 r5284 23 23 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 24 24 , RALPD, RBETD, RGAMD 25 USE yoethf_mod_h 25 26 IMPLICIT NONE 26 27 ! ================================================================= c … … 54 55 ! ================================================================= c 55 56 ! 56 57 INCLUDE "YOETHF.h" 58 ! 57 ! 59 58 ! Quelques constantes et options: 60 59 !!$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 32 32 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 33 33 , RALPD, RBETD, RGAMD 34 USE yoethf_mod_h 34 35 ! 35 36 ! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the … … 74 75 !**************************************************************************************** 75 76 INCLUDE "compbl.h" 76 INCLUDE "YOETHF.h"77 77 78 78 ykmm = 0 !ym missing init … … 230 230 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 231 231 , RALPD, RBETD, RGAMD 232 USE dimphy232 USE dimphy 233 233 USE indice_sol_mod 234 234 USE print_control_mod, ONLY: prt_level, lunout 235 USE yoethf_mod_h 235 236 236 237 !====================================================================== … … 253 254 ! pcfh-----output-R- coefficients a calculer (chaleur et humidite) 254 255 !====================================================================== 255 INCLUDE "YOETHF.h"256 257 256 INCLUDE "FCTTRE.h" 258 257 INCLUDE "compbl.h" -
LMDZ6/trunk/libf/phylmd/coefcdrag.f90
r5282 r5284 22 22 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 23 23 , RALPD, RBETD, RGAMD 24 USE yoethf_mod_h 24 25 IMPLICIT none 25 26 !------------------------------------------------------------------------- … … 64 65 ! 65 66 66 include "YOETHF.h"67 67 ! Quelques constantes : 68 68 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 18 18 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 19 19 , RALPD, RBETD, RGAMD 20 USE yoethf_mod_h 20 21 IMPLICIT NONE 21 22 ! ====================================================================== … … 24 25 ! (schema standard du modele NCAR CCM2) 25 26 ! ====================================================================== 26 27 include "YOETHF.h"28 27 29 28 ! Entree: … … 162 161 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 163 162 , RALPD, RBETD, RGAMD 163 USE yoethf_mod_h 164 164 IMPLICIT NONE 165 165 ! ----------------------------------------------------------------------- … … 314 314 315 315 REAL qhalf, sh1, sh2, shbs1, shbs2 316 include "YOETHF.h"317 316 include "FCTTRE.h" 318 317 qhalf(sh1, sh2, shbs1, shbs2) = min(max(sh1,sh2), & -
LMDZ6/trunk/libf/phylmd/concvl.f90
r5283 r5284 48 48 , RALPD, RBETD, RGAMD 49 49 USE conema3_mod_h 50 USE yoethf_mod_h 50 51 IMPLICIT NONE 51 52 ! ====================================================================== … … 237 238 !$OMP THREADPRIVATE(itap, igout) 238 239 include "YOMCST2.h" 239 include "YOETHF.h"240 240 include "FCTTRE.h" 241 241 -
LMDZ6/trunk/libf/phylmd/conema3.f90
r5283 r5284 22 22 , RALPD, RBETD, RGAMD 23 23 USE conema3_mod_h 24 USE yoethf_mod_h 24 25 IMPLICIT NONE 25 26 ! ====================================================================== … … 187 188 ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 188 189 189 include "YOETHF.h"190 190 include "FCTTRE.h" 191 191 -
LMDZ6/trunk/libf/phylmd/conemav.f90
r5274 r5284 21 21 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 22 22 , RALPD, RBETD, RGAMD 23 USE yoethf_mod_h 23 24 IMPLICIT NONE 24 25 ! ====================================================================== … … 86 87 DATA ifrst/0/ 87 88 !$OMP THREADPRIVATE(ifrst) 88 include "YOETHF.h"89 89 include "FCTTRE.h" 90 90 -
LMDZ6/trunk/libf/phylmd/conf_phys_m.f90
r5283 r5284 24 24 alp_offset) 25 25 26 USE conema3_mod_h 26 USE alpale_mod 27 USE conema3_mod_h 27 28 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 28 29 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 54 55 55 56 INCLUDE "YOMCST2.h" 56 INCLUDE "alpale.h"57 57 58 58 !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12 -
LMDZ6/trunk/libf/phylmd/conflx.f90
r5274 r5284 19 19 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 20 20 , RALPD, RBETD, RGAMD 21 USE yoethf_mod_h 21 22 IMPLICIT NONE 22 23 ! ====================================================================== … … 29 30 ! ====================================================================== 30 31 31 include "YOETHF.h"32 32 ! Entree: 33 33 REAL dtime ! pas d'integration (s) … … 217 217 ! ldcum, ktype, 218 218 pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, dt_con, dq_con, pmflxr, pmflxs) 219 USE dimphy 219 USE yoethf_mod_h 220 USE dimphy 220 221 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 221 222 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 233 234 ! ------------------------------------------------------------------ 234 235 235 include "YOETHF.h"236 236 include "YOECUMF.h" 237 237 ! ---------------------------------------------------------------- … … 515 515 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 516 516 , RALPD, RBETD, RGAMD 517 USE yoethf_mod_h 517 518 IMPLICIT NONE 518 519 ! ---------------------------------------------------------------------- … … 521 522 ! AND INITIALIZES VALUES FOR UPDRAFTS 522 523 ! ---------------------------------------------------------------------- 523 524 include "YOETHF.h"525 524 526 525 REAL pten(klon, klev) ! temperature (environnement) … … 649 648 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 650 649 , RALPD, RBETD, RGAMD 650 USE yoethf_mod_h 651 651 IMPLICIT NONE 652 652 ! ---------------------------------------------------------------------- … … 661 661 ! (NON ENTRAINING PLUME,I.E.CONSTANT MASSFLUX) 662 662 ! ---------------------------------------------------------------------- 663 664 include "YOETHF.h"665 ! ----------------------------------------------------------------666 663 REAL ptenh(klon, klev), pqenh(klon, klev) 667 664 REAL pgeoh(klon, klev), paph(klon, klev+1) … … 730 727 pmfub, pentr, pmfus, pmfuq, pmful, plude, pdmfup, kcbot, kctop, kctop0, & 731 728 kcum, pen_u, pde_u) 732 USE dimphy 729 USE yoethf_mod_h 730 USE dimphy 733 731 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 734 732 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 749 747 ! ---------------------------------------------------------------------- 750 748 751 include "YOETHF.h"752 749 include "YOECUMF.h" 753 750 … … 1041 1038 pmfds, pmfuq, pmfdq, pmful, plude, pdmfup, pdmfdp, pten, prfl, psfl, & 1042 1039 pdpmel, ktopm2, pmflxr, pmflxs) 1043 USE dimphy 1040 USE yoethf_mod_h 1041 USE dimphy 1044 1042 USE print_control_mod, ONLY: prt_level 1045 1043 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & … … 1061 1059 ! ---------------------------------------------------------------------- 1062 1060 1063 include "YOETHF.h"1064 1061 include "YOECUMF.h" 1065 1062 … … 1297 1294 SUBROUTINE flxdtdq(pdtime, ktopm2, paph, ldcum, pten, pmfus, pmfds, pmfuq, & 1298 1295 pmfdq, pmful, pdmfup, pdmfdp, pdpmel, dt_con, dq_con) 1299 USE dimphy 1296 USE yoethf_mod_h 1297 USE dimphy 1300 1298 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1301 1299 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 1315 1313 ! ---------------------------------------------------------------------- 1316 1314 1317 include "YOETHF.h"1318 1315 include "YOECUMF.h" 1319 1316 ! ----------------------------------------------------------------- … … 1371 1368 SUBROUTINE flxdlfs(ptenh, pqenh, pgeoh, paph, ptu, pqu, ldcum, kcbot, kctop, & 1372 1369 pmfub, prfl, ptd, pqd, pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf) 1373 USE dimphy 1370 USE yoethf_mod_h 1371 USE dimphy 1374 1372 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1375 1373 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 1402 1400 ! ---------------------------------------------------------------------- 1403 1401 1404 include "YOETHF.h"1405 1402 include "YOECUMF.h" 1406 1403 … … 1503 1500 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1504 1501 , RALPD, RBETD, RGAMD 1502 USE yoethf_mod_h 1505 1503 IMPLICIT NONE 1506 1504 … … 1521 1519 ! ---------------------------------------------------------------------- 1522 1520 1523 include "YOETHF.h"1524 1521 include "YOECUMF.h" 1525 1522 … … 1628 1625 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1629 1626 , RALPD, RBETD, RGAMD 1627 USE yoethf_mod_h 1630 1628 IMPLICIT NONE 1631 1629 ! ====================================================================== … … 1645 1643 REAL zdelta, zcvm5, zldcp, zqsat, zcor 1646 1644 INTEGER is, i 1647 include "YOETHF.h"1648 1645 include "FCTTRE.h" 1649 1646 -
LMDZ6/trunk/libf/phylmd/conlmd.f90
r5274 r5284 17 17 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18 18 , RALPD, RBETD, RGAMD 19 USE yoethf_mod_h 19 20 IMPLICIT NONE 20 21 ! ====================================================================== … … 23 24 ! Ajustement humide (Manabe) + Ajustement convectif (Kuo) 24 25 ! ====================================================================== 25 26 include "YOETHF.h"27 26 28 27 ! Arguments: … … 115 114 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 116 115 , RALPD, RBETD, RGAMD 116 USE yoethf_mod_h 117 117 IMPLICIT NONE 118 118 ! ====================================================================== … … 185 185 ! Fonctions thermodynamiques: 186 186 187 include "YOETHF.h"188 187 include "FCTTRE.h" 189 188 … … 332 331 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 333 332 , RALPD, RBETD, RGAMD 333 USE yoethf_mod_h 334 334 IMPLICIT NONE 335 335 ! ====================================================================== … … 414 414 ! Fonctions thermodynamiques: 415 415 416 include "YOETHF.h"417 416 include "FCTTRE.h" 418 417 … … 1092 1091 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1093 1092 , RALPD, RBETD, RGAMD 1093 USE yoethf_mod_h 1094 1094 IMPLICIT NONE 1095 1095 ! ====================================================================== … … 1175 1175 ! Fonctions thermodynamiques 1176 1176 1177 include "YOETHF.h"1178 1177 include "FCTTRE.h" 1179 1178 … … 1612 1611 , RALPD, RBETD, RGAMD 1613 1612 USE dimphy 1613 USE yoethf_mod_h 1614 1614 IMPLICIT NONE 1615 1615 ! ====================================================================== … … 1628 1628 ! kcbot---output-I- Niveau du bas de la convection 1629 1629 ! ====================================================================== 1630 include "YOETHF.h"1631 1630 1632 1631 REAL pt(klon, klev), pq(klon, klev), pg(klon, klev), pp(klon, klev) … … 1723 1722 , RALPD, RBETD, RGAMD 1724 1723 USE dimphy 1724 USE yoethf_mod_h 1725 1725 IMPLICIT NONE 1726 1726 ! ====================================================================== … … 1752 1752 REAL zdelta, zcvm5, zldcp, zqsat, zcor, zdqsat 1753 1753 INTEGER is, i 1754 include "YOETHF.h"1755 1754 include "FCTTRE.h" 1756 1755 … … 1841 1840 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1842 1841 , RALPD, RBETD, RGAMD 1842 USE yoethf_mod_h 1843 1843 IMPLICIT NONE 1844 1844 … … 1893 1893 REAL zdelta, zcor, zcvm5 1894 1894 1895 include "YOETHF.h"1896 1895 include "FCTTRE.h" 1897 1896 … … 2138 2137 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 2139 2138 , RALPD, RBETD, RGAMD 2139 USE yoethf_mod_h 2140 2140 IMPLICIT NONE 2141 2141 … … 2180 2180 REAL zdelta, zcor, zcvm5 2181 2181 2182 include "YOETHF.h"2183 2182 include "FCTTRE.h" 2184 2183 -
LMDZ6/trunk/libf/phylmd/create_etat0_unstruct_mod.f90
r5282 r5284 94 94 USE dimsoil_mod_h, ONLY: nsoilmx 95 95 USE clesphys_mod_h 96 USE alpale_mod 96 97 IMPLICIT NONE 97 98 … … 113 114 114 115 INCLUDE "compbl.h" 115 INCLUDE "alpale.h" 116 116 117 117 INTEGER :: ji,j,i 118 118 -
LMDZ6/trunk/libf/phylmd/cv3_enthalpmix.f90
r5276 r5284 25 25 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 26 26 , RALPD, RBETD, RGAMD 27 USE yoethf_mod_h 27 28 IMPLICIT NONE 28 29 ! ============================================================== … … 35 36 36 37 ! =============================================================== 37 38 include "YOETHF.h"39 38 40 39 include "FCTTRE.h" -
LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90
r5276 r5284 26 26 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 27 27 , RALPD, RBETD, RGAMD 28 USE yoethf_mod_h 28 29 IMPLICIT NONE 29 30 ! ============================================================== … … 36 37 37 38 ! =============================================================== 38 39 include "YOETHF.h"40 39 41 40 include "FCTTRE.h" -
LMDZ6/trunk/libf/phylmd/diagphy.f90
r5274 r5284 47 47 ! ====================================================================== 48 48 49 USE dimphy 49 USE yoethf_mod_h 50 USE dimphy 50 51 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 51 52 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 63 64 64 65 65 include "YOETHF.h"66 66 67 67 ! Input variables … … 216 216 ! ====================================================================== 217 217 218 USE dimphy 218 USE yoethf_mod_h 219 USE dimphy 219 220 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 220 221 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 232 233 233 234 234 include "YOETHF.h"235 235 236 236 ! Input variables -
LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h
r5274 r5284 1543 1543 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1544 1544 , RALPD, RBETD, RGAMD 1545 USE yoethf_mod_h 1545 1546 implicit none 1546 1547 … … 1562 1563 ! Declaration des constantes et des fonctions thermodynamiques 1563 1564 ! 1564 1565 include "YOETHF.h"1566 1565 ! 1567 1566 ! ---------------------------------------- … … 1638 1637 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1639 1638 , RALPD, RBETD, RGAMD 1639 USE yoethf_mod_h 1640 1640 implicit none 1641 1641 … … 1669 1669 ! 1670 1670 1671 include "YOETHF.h"1672 1671 ! 1673 1672 ! ---------------------------------------- -
LMDZ6/trunk/libf/phylmd/ener_conserv.f90
r5282 r5284 20 20 21 21 ! From module 22 USE yoethf_mod_h 22 23 USE clesphys_mod_h 23 24 USE phys_local_var_mod, ONLY : d_u_vdf,d_v_vdf,d_t_vdf,d_u_ajs,d_v_ajs,d_t_ajs, & … … 46 47 IMPLICIT none 47 48 48 INCLUDE "YOETHF.h"49 49 INCLUDE "compbl.h" 50 50 -
LMDZ6/trunk/libf/phylmd/evappot.f90
r5274 r5284 2 2 & t_seri,q_seri,u_seri,v_seri,evap_pot) 3 3 4 USE yoethf_mod_h 4 5 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 5 6 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 17 18 18 19 19 INCLUDE "YOETHF.h"20 20 INCLUDE "FCTTRE.h" 21 21 -
LMDZ6/trunk/libf/phylmd/fisrtilp_tr.f90
r5274 r5284 23 23 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 24 24 , RALPD, RBETD, RGAMD 25 USE yoethf_mod_h 25 26 IMPLICIT NONE 26 27 ! ====================================================================== … … 134 135 REAL fallv ! vitesse de chute pour crystaux de glace 135 136 REAL zzz 136 include "YOETHF.h"137 137 include "FCTTRE.h" 138 138 fallv(zzz) = 3.29/2.0*((zzz)**0.16) -
LMDZ6/trunk/libf/phylmd/fonte_neige_mod.F90
r5282 r5284 246 246 #endif 247 247 #endif 248 USE clesphys_mod_h 248 USE yoethf_mod_h 249 USE clesphys_mod_h 249 250 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 250 251 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 278 279 ! evap 279 280 ! 280 INCLUDE "YOETHF.h"281 281 INCLUDE "FCTTRE.h" 282 282 -
LMDZ6/trunk/libf/phylmd/hbtm2l.f90
r5274 r5284 17 17 , RALPD, RBETD, RGAMD 18 18 USE dimphy 19 USE yoethf_mod_h 19 20 IMPLICIT NONE 20 21 … … 141 142 REAL missing_val 142 143 143 include "YOETHF.h"144 144 include "FCTTRE.h" 145 145 -
LMDZ6/trunk/libf/phylmd/hbtm_mod.f90
r5274 r5284 21 21 trmb1, trmb2, trmb3, plcl) 22 22 USE dimphy 23 USE yoethf_mod_h 23 24 24 25 ! *************************************************************** … … 164 165 REAL fac, pblmin, zmzp, term 165 166 166 include "YOETHF.h"167 167 include "FCTTRE.h" 168 169 170 168 171 169 ! initialisations (Anne) -
LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_ts2.f90
r5274 r5284 58 58 ! |________________________________________________________________________| 59 59 60 USE VAR_SV 60 USE yoethf_mod_h 61 USE VAR_SV 61 62 USE VARdSV 62 63 … … 87 88 88 89 89 INCLUDE "YOETHF.h"90 90 INCLUDE "FCTTRE.h" 91 91 ! INCLUDE "indicesol.h" -
LMDZ6/trunk/libf/phylmd/lmdz_cloudth.f90
r5274 r5284 27 27 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 28 28 , RALPD, RBETD, RGAMD 29 USE yoethf_mod_h 29 30 IMPLICIT NONE 30 31 … … 36 37 !=========================================================================== 37 38 38 39 40 INCLUDE "YOETHF.h"41 39 INCLUDE "FCTTRE.h" 42 40 … … 277 275 278 276 279 use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha 277 USE yoethf_mod_h 278 use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha 280 279 281 280 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & … … 294 293 295 294 296 INCLUDE "YOETHF.h"297 295 INCLUDE "FCTTRE.h" 298 296 … … 624 622 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 625 623 , RALPD, RBETD, RGAMD 624 USE yoethf_mod_h 626 625 IMPLICIT NONE 627 626 … … 632 631 ! Objet : calcule les valeurs de qc et rneb dans les thermiques 633 632 !=========================================================================== 634 635 636 637 INCLUDE "YOETHF.h"638 633 INCLUDE "FCTTRE.h" 639 634 … … 855 850 !=========================================================================== 856 851 857 use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs 852 USE yoethf_mod_h 853 use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs 858 854 use lmdz_cloudth_ini, only : vert_alpha,vert_alpha_th, sigma1s_factor, sigma1s_power , sigma2s_factor , sigma2s_power , cloudth_ratqsmin , iflag_cloudth_vert_noratqs 859 855 … … 875 871 876 872 877 INCLUDE "YOETHF.h"878 873 INCLUDE "FCTTRE.h" 879 874 … … 1296 1291 & cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv) 1297 1292 1298 use lmdz_cloudth_ini, only: iflag_cloudth_vert 1293 USE yoethf_mod_h 1294 use lmdz_cloudth_ini, only: iflag_cloudth_vert 1299 1295 1300 1296 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & … … 1314 1310 1315 1311 1316 INCLUDE "YOETHF.h"1317 1312 INCLUDE "FCTTRE.h" 1318 1313 -
LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.f90
r5274 r5284 38 38 USE lmdz_lscp_ini, ONLY: cld_tau_lsc, cld_tau_con, cld_lc_lsc, cld_lc_con 39 39 USE lmdz_lscp_ini, ONLY: reevap_ice, iflag_bergeron, iflag_fisrtilp_qsat, iflag_pdf 40 40 USE yoethf_mod_h 41 41 42 42 … … 67 67 ! fl_cor_ebil= 0 pour reproduire anciens bugs 68 68 !====================================================================== 69 include "YOETHF.h"70 69 include "FCTTRE.h" 71 70 ! -
LMDZ6/trunk/libf/phylmd/lmdz_lscp_tools.f90
r5274 r5284 519 519 520 520 521 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 521 USE yoethf_mod_h 522 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 522 523 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 523 524 , R_ecc, R_peri, R_incl & … … 534 535 535 536 536 include "YOETHF.h"537 537 include "FCTTRE.h" 538 538 -
LMDZ6/trunk/libf/phylmd/lmdz_ratqs_multi.f90
r5268 r5284 14 14 !============================================= 15 15 16 IMPLICIT NONE 16 USE yoethf_mod_h 17 IMPLICIT NONE 17 18 18 19 ! Include 19 20 !============================================= 20 INCLUDE "YOETHF.h"21 21 22 22 -
LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alp.f90
r5274 r5284 19 19 &) 20 20 21 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 21 USE yoethf_mod_h 22 USE alpale_mod 23 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 22 24 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 23 25 , R_ecc, R_peri, R_incl & … … 49 51 ! ------------- 50 52 51 INCLUDE "YOETHF.h"52 53 INCLUDE "FCTTRE.h" 53 INCLUDE "alpale.h"54 54 55 55 ! arguments: -
LMDZ6/trunk/libf/phylmd/lmdz_thermcell_old.F90
r5274 r5284 730 730 , r_aspect, l_mix, w2di, tho) 731 731 732 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 732 USE yoethf_mod_h 733 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 733 734 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 734 735 , R_ecc, R_peri, R_incl & … … 769 770 ! ------------- 770 771 771 include "YOETHF.h"772 772 include "FCTTRE.h" 773 773 … … 2342 2342 , r_aspect, l_mix, w2di, tho) 2343 2343 2344 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 2344 USE yoethf_mod_h 2345 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 2345 2346 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 2346 2347 , R_ecc, R_peri, R_incl & … … 2381 2382 ! ------------- 2382 2383 2383 include "YOETHF.h"2384 2384 include "FCTTRE.h" 2385 2385 -
LMDZ6/trunk/libf/phylmd/lmdz_thermcell_qsat.f90
r5274 r5284 3 3 4 4 subroutine thermcell_qsat(klon,active,pplev,ztemp,zqta,zqsat) 5 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 5 USE yoethf_mod_h 6 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 6 7 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 7 8 , R_ecc, R_peri, R_incl & … … 18 19 19 20 20 INCLUDE "YOETHF.h"21 21 INCLUDE "FCTTRE.h" 22 22 -
LMDZ6/trunk/libf/phylmd/nonlocal.f90
r5274 r5284 18 18 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 19 19 , RALPD, RBETD, RGAMD 20 USE yoethf_mod_h 20 21 IMPLICIT NONE 21 22 ! ====================================================================== … … 119 120 REAL fac, pblmin, zmzp, term 120 121 121 include "YOETHF.h"122 122 include "FCTTRE.h" 123 123 -
LMDZ6/trunk/libf/phylmd/nuage.f90
r5282 r5284 377 377 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 378 378 , RALPD, RBETD, RGAMD 379 USE yoethf_mod_h 379 380 IMPLICIT NONE 380 381 … … 410 411 411 412 ! Fonctions thermodynamiques: 412 include "YOETHF.h"413 413 include "FCTTRE.h" 414 414 -
LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
r5282 r5284 407 407 #endif 408 408 #endif 409 USE clesphys_mod_h 409 USE yoethf_mod_h 410 USE clesphys_mod_h 410 411 USE ioipsl_getin_p_mod, ONLY : getin_p 411 412 use phys_state_var_mod, only: ds_ns, dt_ns, delta_sst, delta_sal, dter, & … … 431 432 IMPLICIT NONE 432 433 433 INCLUDE "YOETHF.h"434 434 INCLUDE "FCTTRE.h" 435 435 INCLUDE "compbl.h" -
LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90
r5282 r5284 59 59 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 60 60 , RALPD, RBETD, RGAMD 61 USE alpale_mod 61 62 IMPLICIT none 62 63 !====================================================================== … … 64 65 ! Objet: Lecture de l'etat initial pour la physique 65 66 !====================================================================== 66 include "alpale.h"67 67 include "compbl.h" 68 68 -
LMDZ6/trunk/libf/phylmd/phyredem.f90
r5282 r5284 9 9 ! Purpose: Write restart state for physics. 10 10 !------------------------------------------------------------------------------- 11 USE clesphys_mod_h 11 USE alpale_mod 12 USE clesphys_mod_h 12 13 USE dimphy, ONLY: klon, klev 13 14 USE fonte_neige_mod, ONLY : fonte_neige_final … … 46 47 USE dimsoil_mod_h, ONLY: nsoilmx 47 48 IMPLICIT none 48 include "alpale.h"49 49 include "compbl.h" 50 50 !====================================================================== -
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r5282 r5284 470 470 USE YOESW, ONLY : RSUN 471 471 #endif 472 USE clesphys_mod_h 472 USE alpale_mod 473 USE clesphys_mod_h 473 474 USE tracinca_mod, ONLY: config_inca 474 475 USE config_ocean_skin_m, ONLY: activate_ocean_skin … … 491 492 IMPLICIT NONE 492 493 493 INCLUDE "alpale.h"494 494 INCLUDE "compbl.h" 495 495 -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r5283 r5284 372 372 USE clesphys_mod_h 373 373 USE conema3_mod_h 374 USE alpale_mod 375 USE yoethf_mod_h 374 376 375 377 IMPLICIT NONE … … 425 427 426 428 include "regdim.h" 427 include "alpale.h"428 429 include "dimpft.h" 429 430 !====================================================================== … … 1183 1184 ! the ozone fields, old method. 1184 1185 1185 include "YOETHF.h"1186 1186 include "FCTTRE.h" 1187 1187 include "nuage.h" -
LMDZ6/trunk/libf/phylmd/radlwsw_m.F90
r5282 r5284 99 99 , RALPD, RBETD, RGAMD 100 100 USE clesphys_mod_h 101 USE yoethf_mod_h 101 102 102 103 !====================================================================== … … 203 204 ! DECLARATIONS 204 205 ! ============== 205 include "YOETHF.h"206 206 207 207 ! Input arguments -
LMDZ6/trunk/libf/phylmd/reevap.f90
r5274 r5284 17 17 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18 18 , RALPD, RBETD, RGAMD 19 USE yoethf_mod_h 19 20 IMPLICIT none 20 21 !>====================================================================== … … 30 31 !---Propri\'et\'es du thermiques au LCL 31 32 32 include "YOETHF.h"33 33 include "FCTTRE.h" 34 34 !IM 100106 BEG : pouvoir sortir les ctes de la physique -
LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90
r5274 r5284 32 32 ts1, qsurf, z0m, z0h, psol, pat1, & 33 33 t_2m, q_2m, t_10m, q_10m, u_10m, ustar, s_pblh, prain, tsol) 34 USE yoethf_mod_h 34 35 IMPLICIT NONE 35 36 !------------------------------------------------------------------------- … … 84 85 !------------------------------------------------------------------------- 85 86 include "flux_arp.h" 86 !IM PLUS87 include "YOETHF.h"88 87 ! 89 88 ! Quelques constantes et options: … … 343 342 , RALPD, RBETD, RGAMD 344 343 USE ioipsl_getin_p_mod, ONLY : getin_p 344 USE yoethf_mod_h 345 345 IMPLICIT NONE 346 346 !------------------------------------------------------------------------- … … 404 404 !------------------------------------------------------------------------- 405 405 include "flux_arp.h" 406 !IM PLUS407 include "YOETHF.h"408 406 ! 409 407 ! Quelques constantes et options: -
LMDZ6/trunk/libf/phylmd/suphel.f90
r5274 r5284 4 4 SUBROUTINE suphel 5 5 6 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 6 USE yoethf_mod_h 7 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 7 8 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 8 9 , R_ecc, R_peri, R_incl & … … 19 20 20 21 21 include "YOETHF.h"22 22 ! IM cf. JLD 23 23 LOGICAL firstcall -
LMDZ6/trunk/libf/phylmd/wx_pbl_mod.f90
r5282 r5284 32 32 ! 33 33 34 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 34 USE yoethf_mod_h 35 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 35 36 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 36 37 , R_ecc, R_peri, R_incl & … … 51 52 52 53 INCLUDE "FCTTRE.h" 53 INCLUDE "YOETHF.h"54 54 ! 55 55 INTEGER, INTENT(IN) :: knon ! number of grid cells … … 180 180 ! 181 181 182 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 182 USE yoethf_mod_h 183 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 183 184 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 184 185 , R_ecc, R_peri, R_incl & … … 198 199 199 200 INCLUDE "FCTTRE.h" 200 INCLUDE "YOETHF.h"201 201 ! 202 202 INTEGER, INTENT(IN) :: knon ! number of grid cells … … 759 759 ! 760 760 761 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 761 USE yoethf_mod_h 762 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 762 763 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 763 764 , R_ecc, R_peri, R_incl & … … 777 778 778 779 INCLUDE "FCTTRE.h" 779 INCLUDE "YOETHF.h"780 780 ! 781 781 INTEGER, INTENT(IN) :: knon ! number of grid cells … … 1015 1015 ! 1016 1016 1017 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1017 USE yoethf_mod_h 1018 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1018 1019 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1019 1020 , R_ecc, R_peri, R_incl & … … 1033 1034 1034 1035 INCLUDE "FCTTRE.h" 1035 INCLUDE "YOETHF.h"1036 1036 ! 1037 1037 INTEGER, INTENT(IN) :: knon ! number of grid cells -
LMDZ6/trunk/libf/phylmd/wx_pbl_var_mod.f90
r5282 r5284 315 315 ) 316 316 ! 317 USE clesphys_mod_h 317 USE yoethf_mod_h 318 USE clesphys_mod_h 318 319 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 319 320 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 333 334 334 335 INCLUDE "FCTTRE.h" 335 INCLUDE "YOETHF.h"336 336 ! 337 337 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 30 2 31 !$OMP THREADPRIVATE(/YOETHF/) 3 MODULE 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) 26 END MODULE yoethf_mod_h -
LMDZ6/trunk/libf/phylmdiso/alpale_mod.f90
r5283 r5284 1 link ../phylmd/alpale .f901 link ../phylmd/alpale_mod.f90 -
LMDZ6/trunk/libf/phylmdiso/concvl.F90
r5283 r5284 77 77 , RALPD, RBETD, RGAMD 78 78 USE conema3_mod_h 79 USE yoethf_mod_h 79 80 IMPLICIT NONE 80 81 ! ====================================================================== … … 309 310 !$OMP THREADPRIVATE(itap, igout) 310 311 include "YOMCST2.h" 311 include "YOETHF.h"312 312 include "FCTTRE.h" 313 313 -
LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90
r5276 r5284 32 32 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 33 33 , RALPD, RBETD, RGAMD 34 USE yoethf_mod_h 34 35 IMPLICIT NONE 35 36 ! ============================================================== … … 42 43 43 44 ! =============================================================== 44 45 include "YOETHF.h"46 45 47 46 include "FCTTRE.h" -
LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90
r5276 r5284 33 33 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 34 34 , RALPD, RBETD, RGAMD 35 USE yoethf_mod_h 35 36 IMPLICIT NONE 36 37 ! ============================================================== … … 43 44 44 45 ! =============================================================== 45 46 include "YOETHF.h"47 46 48 47 include "FCTTRE.h" -
LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90
r5282 r5284 12981 12981 USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso 12982 12982 #endif 12983 USE yoethf_mod_h 12983 12984 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 12984 12985 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 13000 13001 ! commun aux dfférentes sous-surfaces. 13001 13002 13002 INCLUDE "YOETHF.h"13003 13003 INCLUDE "FCTTRE.h" 13004 13004 ! … … 13565 13565 & bassin_map 13566 13566 #endif 13567 USE yoethf_mod_h 13567 13568 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 13568 13569 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & … … 13579 13580 implicit none 13580 13581 13581 INCLUDE "YOETHF.h"13582 13582 INCLUDE "FCTTRE.h" 13583 13583 … … 14492 14492 #endif 14493 14493 14494 USE yoethf_mod_h 14494 14495 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14495 14496 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & … … 14509 14510 implicit none 14510 14511 14511 INCLUDE "YOETHF.h"14512 14512 INCLUDE "FCTTRE.h" 14513 14513 -
LMDZ6/trunk/libf/phylmdiso/lmdz_lscp_old.F90
r5274 r5284 80 80 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 81 81 , RALPD, RBETD, RGAMD 82 USE yoethf_mod_h 82 83 IMPLICIT none 83 84 !====================================================================== … … 324 325 REAL zzz 325 326 326 include "YOETHF.h"327 327 include "FCTTRE.h" 328 328 fallvc (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_con -
LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90
r5282 r5284 74 74 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 75 75 , RALPD, RBETD, RGAMD 76 USE alpale_mod 76 77 IMPLICIT none 77 78 !====================================================================== … … 79 80 ! Objet: Lecture de l'etat initial pour la physique 80 81 !====================================================================== 81 include "alpale.h"82 82 include "compbl.h" 83 83 -
LMDZ6/trunk/libf/phylmdiso/phyredem.F90
r5282 r5284 46 46 #endif 47 47 #endif 48 USE clesphys_mod_h 48 USE alpale_mod 49 USE clesphys_mod_h 49 50 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo 50 51 USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic, epsfra … … 56 57 57 58 IMPLICIT none 58 include "alpale.h"59 59 include "compbl.h" 60 60 !====================================================================== … … 512 512 use isotrac_mod, only: index_zone,index_iso,strtrac 513 513 #endif 514 USE alpale_mod 514 515 USE clesphys_mod_h 515 516 USE dimsoil_mod_h, ONLY: nsoilmx … … 517 518 518 519 ! equivalent isotopique de phyredem 519 INCLUDE "alpale.h"520 520 INCLUDE "compbl.h" 521 521 ! inputs -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r5283 r5284 445 445 USE clesphys_mod_h 446 446 USE conema3_mod_h 447 USE alpale_mod 448 USE yoethf_mod_h 447 449 448 450 IMPLICIT NONE … … 498 500 499 501 include "regdim.h" 500 include "alpale.h"501 502 include "dimpft.h" 502 503 !====================================================================== … … 1293 1294 ! the ozone fields, old method. 1294 1295 1295 include "YOETHF.h"1296 1296 include "FCTTRE.h" 1297 1297 !IM 100106 BEG : pouvoir sortir les ctes de la physique -
LMDZ6/trunk/libf/phylmdiso/reevap.F90
r5274 r5284 27 27 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 28 28 , RALPD, RBETD, RGAMD 29 USE yoethf_mod_h 29 30 IMPLICIT none 30 31 !>====================================================================== … … 43 44 !---Propri\'et\'es du thermiques au LCL 44 45 45 include "YOETHF.h"46 46 include "FCTTRE.h" 47 47 !IM 100106 BEG : pouvoir sortir les ctes de la physique -
LMDZ6/trunk/libf/phylmdiso/yoethf_mod_h.f90
r5283 r5284 1 link ../phylmd/ YOETHF.h1 link ../phylmd/yoethf_mod_h.f90
Note: See TracChangeset
for help on using the changeset viewer.