Changeset 390 for LMDZ.3.3/branches/rel-LF

Timestamp:

Jul 17, 2002, 11:06:53 AM (22 years ago)

Author:

lmdzadmin

Message:

Bug sur le common nuage
LF

Location:

LMDZ.3.3/branches/rel-LF/libf/phylmd

Files:

• nuage.F (modified) (2 diffs)
• nuage.h (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/nuage.F

@@ -20 +20 @@
 #include "dimensions.h"
 #include "dimphy.h"
+#include "nuage.h"
       REAL paprs(klon,klev+1), pplay(klon,klev)
       REAL t(klon,klev)
@@ -37 +38 @@
       REAL zflwp, zradef, zfice, zmsac
 c
-      REAL radius, rad_froid, rad_chaud, rad_chau1, rad_chau2
-      PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0)
+      REAL radius, rad_chaud
+ccc      PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0)
 ccc      PARAMETER (rad_chaud=15.0, rad_froid=35.0)
 c sintex initial      PARAMETER (rad_chaud=10.0, rad_froid=30.0)

LMDZ.3.3/branches/rel-LF/libf/phylmd/nuage.h

@@ -1 +1 @@
       REAL rad_froid, rad_chau1, rad_chau2
 
-      common /nuage/ rad_froid,rad_chau1, rad_chau2
+      common /nuagecom/ rad_froid,rad_chau1, rad_chau2