Changeset 1245 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

May 11, 2014, 1:32:49 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.COMMON. added support for gfortran. corrected cyclic dependency with moyzon.

Location:

trunk/LMDZ.COMMON/libf/dyn3d

Files:

• calfis.F (modified) (1 diff)
• moyzon_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/calfis.F

@@ -224 +224 @@
         endif
 
-        if (flag_moyzon) call moyzon_init
+        if (flag_moyzon) call moyzon_init(iim,llm,nqtot)
 
 c----------------------------------------------

trunk/LMDZ.COMMON/libf/dyn3d/moyzon_mod.F90

@@ -24 +24 @@
 CONTAINS
 !======================================================================
-SUBROUTINE moyzon_init
+SUBROUTINE moyzon_init(klon,llm,nqtot)
 #ifdef CPP_PHYS
-! This routine needs physics
-USE dimphy
-USE infotrac, only: nqtot
+!! This routine needs physics
 IMPLICIT NONE
-    INCLUDE "dimensions.h"
+       INTEGER :: klon,llm,nqtot
 
       ALLOCATE(zplevbar(klon,llm+1),zplaybar(klon,llm))
@@ -37 +35 @@
       ALLOCATE(zpkbar(klon,llm),ztetabar(klon,llm))
       ALLOCATE(zzlevbar(klon,llm+1),zzlaybar(klon,llm))
-
 #else
     include "iniprint.h"