Changeset 1422 for trunk/LMDZ.MARS/libf/phymars/eofdump_mod.F90

Timestamp:

Apr 30, 2015, 12:33:45 PM (10 years ago)

Author:

milmd

Message:

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

File:

• trunk/LMDZ.MARS/libf/phymars/eofdump_mod.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/eofdump_mod.F90

@@ -80 +80 @@
       use comgeomfi_h, only: long, lati
       use comcstfi_h
+      USE comvert_mod, ONLY: aps,bps
       implicit none
 !
@@ -85 +86 @@
 !
 #include "dimensions.h"
-#include "comvert.h"
 
       integer,intent(in) :: ngrid ! total number of physics grid points