Changeset 4184 for dynamico_lmdz/simple_physics/phyparam/param/vdif_k.F

Timestamp:

Dec 19, 2019, 4:51:01 PM (5 years ago)

Author:

dubos

Message:

simple_physics : planete.h => MODULE planet.F90

File:

• dynamico_lmdz/simple_physics/phyparam/param/vdif_k.F (modified) (2 diffs)

dynamico_lmdz/simple_physics/phyparam/param/vdif_k.F

@@ -1 +1 @@
       SUBROUTINE vdif_k(ngrid,nlay,
      s   ptimestep,pg,pzlev,pzlay,pz0,pu,pv,ph,pcdv,pkv,pkh)
-
+      USE planet
       IMPLICIT NONE
-#include "planete.h"
 
       INTEGER ngrid,nlay
@@ -16 +15 @@
       INTEGER ig,il
       REAL zdu,zdv,zri,zdvodz2,zdz,z1,lmix
-
-      REAL karman
-      SAVE karman
-      DATA lmixmin,emin_turb,karman/100.,1.e-8,.4/
-
 
       print*,'LMIXMIN',lmixmin