Changeset 2088 for LMDZ5/trunk/libf/phylmd/etat0_netcdf.F90

Timestamp:

Jul 11, 2014, 2:52:53 PM (10 years ago)

Author:

lguez

Message:

Control the output from ce0l.

File:

• LMDZ5/trunk/libf/phylmd/etat0_netcdf.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/etat0_netcdf.F90

@@ -187 +187 @@
    &              rlonu, rlatv, ib)
     WRITE(lunout,*)'MASQUE construit : Masque'
-    WRITE(lunout,'(97I1)') nINT(masque)
+    if (prt_level >= 1) WRITE(lunout,'(97I1)') nINT(masque)
     CALL gr_dyn_fi(1, iip1, jjp1, klon, masque, zmasq)
     WHERE(   zmasq(:)<EPSFRA) zmasq(:)=0.
@@ -421 +421 @@
   WRITE(fmt,"(i4,'i1)')")iip1 ; fmt='('//ADJUSTL(fmt)
   WRITE(lunout,*) 'MASQUE construit : Masque'
-  WRITE(lunout,TRIM(fmt))NINT(masque(:,:))
+  if (prt_level >= 1) WRITE(lunout,TRIM(fmt))NINT(masque(:,:))
 
 ! Intermediate computation