Changeset 1422 for trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/grid_noro1.F

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.GENERIC/libf/dynlonlat_phylonlat/phystd/grid_noro1.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/grid_noro1.F

@@ -51 +51 @@
 c     IMPLICIT INTEGER (I,J)
 c     IMPLICIT REAL(X,Z) 
+
+       USE comconst_mod, ONLY: rad
+
        implicit none
        integer iusn,jusn,iext
@@ -57 +60 @@
 c!-*-      include 'comcstfi.h'
 #include "dimensions.h"
-#include "comconst.h"
 c!-*-
 c!-*-      parameter(iim=cols,jjm=rows)