Changeset 4184 for dynamico_lmdz/simple_physics/phyparam/param/vdif_cd.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_cd.F (modified) (2 diffs)

dynamico_lmdz/simple_physics/phyparam/param/vdif_cd.F

@@ -1 +1 @@
       SUBROUTINE vdif_cd( ngrid,pz0,pg,pz,pu,pv,pts,ph,pcdv,pcdh)
+      USE planet, ONLY : karman
       IMPLICIT NONE
 c=======================================================================
@@ -50 +51 @@
       REAL zu2,z1,zri,zcd0,zz
 
-      REAL karman,b,c,d,c2b,c3bc,c3b,z0,umin2
+      REAL b,c,d,c2b,c3bc,c3b,z0,umin2
       LOGICAL firstcal
-      DATA karman,b,c,d,umin2/.4,5.,5.,5.,1.e-12/
+      DATA b,c,d,umin2/5.,5.,5.,1.e-12/
       DATA firstcal/.true./
-      SAVE b,c,d,karman,c2b,c3bc,c3b,firstcal,umin2
+      SAVE b,c,d,c2b,c3bc,c3b,firstcal,umin2
 
 c-----------------------------------------------------------------------