Changeset 179 for LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

Timestamp:

Mar 20, 2001, 4:14:30 PM (23 years ago)

Author:

lmdzadmin

Message:

Synchronisation avec version MAFO:

ajout sortie netcdf des champs echanges avec le coupleur
quelques save sur les variables (pb stack/static sur le nec)

LF

File:

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

LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

@@ +1 @@
+c
+c $Header$
+c
       SUBROUTINE physiq (nlon,nlev,nqmax  ,
      .            debut,lafin,rjourvrai,rjour_ecri,gmtime,pdtphys,
@@ -71 +74 @@
 c Parametres lies au coupleur OASIS:
 #include "oasis.h"
-      INTEGER npas, nexca
+      INTEGER,SAVE :: npas, nexca
       logical rnpb
       parameter(rnpb=.true.)