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

Timestamp:

Feb 7, 2002, 5:05:35 PM (23 years ago)

Author:

lmdzadmin

Message:

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

@@ -418 +418 @@
         isst = 0
         where (ocemask_fi(2:klon-1) >0.) isst = 1
-        write(45,'(72i1)')isst
       endif
 
@@ -503 +502 @@
       isst = 0
       where (pctsrf(2:klon-1,is_oce) >0.) isst = 1
-      write(46,'(72i1)')isst
 C
 C verif que somme des sous surface = 1