Changeset 354 for LMDZ.3.3/branches

Timestamp:

Mar 25, 2002, 11:57:58 AM (23 years ago)

Author:

lmdzadmin

Message:

include du mauvais fichier apres un peu de menage
LF

File:

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

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

@@ -78 +78 @@
 #include "control.h"
 #include "serre.h"
-#include "clesph0.h"
+#include "clesphys.h"
 
       INTEGER  ::        longcles
@@ -181 +181 @@
       ! This line needs to be replaced by a call to restget to get the values in the restart file
       masque(:,:) = 0.0
+      
        CALL startget(varname, iip1, jjp1, rlonv, rlatu, masque, 0.0,
      , jjm ,rlonu,rlatv , interbar )
       !
       WRITE(*,*) 'MASQUE construit : Masque'
-!      WRITE(*,'(49I1)') INT(masque(:,:))
+!      WRITE(*,'(97I1)') nINT(masque(:,:))
       !
       !