Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90

@@ -4 +4 @@
     cd, tke, eps, km, kn, kq, ustar, iflag_pbl, drgpro)
 
-  USE dimphy, only : klev,klon
+  USE dimphy, ONLY: klev,klon
   USE phys_local_var_mod, only: wprime
-  USE yamada_ini_mod, only : new_yamada4,yamada4_num,hboville
-  USE yamada_ini_mod, only : prt_level, lunout,pbl_lmixmin_alpha,b1,kap,viscom,viscoh
-  USE yamada_ini_mod, only : ric, yun,ydeux,lmixmin,iflag_vdif_q2
+  USE yamada_ini_mod, ONLY: new_yamada4,yamada4_num,hboville
+  USE yamada_ini_mod, ONLY: prt_level, lunout,pbl_lmixmin_alpha,b1,kap,viscom,viscoh
+  USE yamada_ini_mod, ONLY: ric, yun,ydeux,lmixmin,iflag_vdif_q2
   
   IMPLICIT NONE
@@ -712 +712 @@
 SUBROUTINE vdif_q2(timestep, gravity, rconst, ngrid, plev, temp, kmy, q2)
 
-  USE dimphy, only : klev,klon
+  USE dimphy, ONLY: klev,klon
   IMPLICIT NONE
  
@@ -801 +801 @@
  SUBROUTINE vdif_q2e(timestep, gravity, rconst, ngrid, plev, temp, kmy, q2)
   
-   USE dimphy, only : klev,klon
+   USE dimphy, ONLY: klev,klon
   IMPLICIT NONE
 
@@ -872 +872 @@
 
 
-  USE dimphy, only : klev,klon
-  USE yamada_ini_mod, only : l0
+  USE dimphy, ONLY: klev,klon
+  USE yamada_ini_mod, ONLY: l0
   USE phys_state_var_mod, only: zstd, zsig, zmea
   USE phys_local_var_mod, only: l_mixmin, l_mix
-  USE yamada_ini_mod, only : kap, kapb
+  USE yamada_ini_mod, ONLY: kap, kapb
 
  ! zstd: ecart type de la'altitud e sous-maille