Changeset 1042 for LMDZ4/trunk/libf

Timestamp:

Oct 31, 2008, 2:49:42 PM (16 years ago)

Author:

lmdzadmin

Message:

Par defaut, pas de sorties grads
FH/IM

File:

• LMDZ4/trunk/libf/dyn3d/guide.F (modified) (6 diffs)

LMDZ4/trunk/libf/dyn3d/guide.F

@@ -113 +113 @@
       save step_rea,count_no_rea
 
+#define gradsfile
+#undef gradsfile
+
+#ifdef gradsfile
       character*10 file
       integer igrads
@@ -118 +122 @@
       save igrads,dtgrads
       data igrads,dtgrads/2,100./
-
+#endif
 C-----------------------------------------------------------------------
 c calcul de l'humidite saturante
@@ -155 +159 @@
          print*,'apres conf_guide'
 
+
+#ifdef gradsfile
          file='guide'
          call inigrads(igrads,iip1
@@ -160 +166 @@
      s  ,llm,presnivs,1.
      s  ,dtgrads,file,'dyn_zon ')
+#endif
 
          print*
@@ -279 +286 @@
       factt=dtvr*iperiod/daysec
       ztau(:)=factt/max(alpha_T(:),1.e-10)
+#ifdef gradsfile
       call wrgrads(igrads,1,aire   ,'aire      ','aire      ' )
       call wrgrads(igrads,1,dxdys  ,'dxdy      ','dxdy      ' )
@@ -292 +300 @@
 
       call wrgrads(igrads,llm,qsat,'QSAT      ','QSAT      ' )
-
+#endif
         endif
       else