Changeset 85 for LMDZ.3.3/trunk/libf

Timestamp:

May 10, 2000, 12:17:34 PM (25 years ago)

Author:

lmdzadmin

Message:

Probleme dans la definition des grilles des champs lies au relief

File:

• LMDZ.3.3/trunk/libf/dyn3d/physdem.F (modified) (9 diffs)

LMDZ.3.3/trunk/libf/dyn3d/physdem.F

@@ -41 +41 @@
 c Ajout de quelques parametres orographiques (F. LOTT janvier 1995)
 
-      REAL zmea(iip1,jjp1),zstd(iip1,jjp1)
-      REAL zsig(iip1,jjp1),zgam(iip1,jjp1),zthe(iip1,jjp1)
-      REAL zpic(iip1,jjp1),zval(iip1,jjp1)
-      REAL rugsrel(iip1,jjp1)
+      REAL zmea(klon),zstd(klon)
+      REAL zsig(klon),zgam(klon),zthe(klon)
+      REAL zpic(klon),zval(klon)
+      REAL rugsrel(klon)
       INTEGER idayref,anneeref
 
@@ -280 +280 @@
 #endif
 c
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zmea, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -294 +293 @@
 #endif
 c
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zstd, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -308 +306 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zsig, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -322 +319 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zgam, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -336 +332 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zthe, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -350 +345 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zpic, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -364 +358 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, zval, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
@@ -378 +371 @@
 #endif
 
-      CALL gr_dyn_fi(1, iip1, jjp1, klon, rugsrel, champhys)
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE