Changeset 338 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_etat0.F

Timestamp:

Feb 20, 2002, 11:57:18 AM (22 years ago)

Author:

lmdzadmin

Message:

Rendu compatible avec le create_etat0_limit
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_etat0.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_etat0.F

@@ +1 @@
+c
+c $Header$
+c
       PROGRAM create_etat0
 C
@@ -4 +7 @@
 C   
 C
-      CALL etat0_netcdf
+      LOGICAL interbar
+      PARAMETER ( interbar = .TRUE. )
+#include "dimensions.h"
+#include "paramet.h"
+#include "indicesol.h"
+#include "dimphy.h"
+      REAL :: masque(iip1,jjp1)
+      REAL :: pctsrf(klon, nbsrf)
+
+      CALL etat0_netcdf( interbar, masque, pctsrf )
       STOP
       END