Changeset 228 for trunk/LMDZ.MARS/libf/phymars/writediagfi.F

Timestamp:

Jul 15, 2011, 8:33:51 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: corrected the diagfi bug. updated test case and check those are still working OK. other changes are cosmetic

File:

• trunk/LMDZ.MARS/libf/phymars/writediagfi.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/writediagfi.F

@@ -90 +90 @@
       integer, dimension(4) :: edges,corner
       
-
+#ifndef MESOSCALE
 !***************************************************************
 !Sortie des variables au rythme voulu
@@ -404 +404 @@
       ierr= NF_CLOSE(nid)
 
+#endif
       end