Changeset 1107 for trunk/LMDZ.COMMON/libf/dyn3d/moyzon_mod.F90

Timestamp:

Nov 19, 2013, 12:52:22 PM (11 years ago)

Author:

emillour

Message:

Common dynamics: Updates and modifications to enable running Mars physics with

LMDZ.COMMON dynamics:

• For compilation: adapted makelmdz, create_make_gcm and makelmdz_fcm, bld.cfg to compile aeronomy routines in "aerono$physique" if it exists, and added "-P -traditional" preprocessing flags in "arch-linux-ifort*"
• Added function "cbrt.F" (cubic root) in 'bibio'
• Adapted the reading/writing of dynamics (re)start.nc files for Mars. The main issue is that different information (on time, reference and current) is stored and used differently, hence a few if (planet_type =="mars") here and there. Moreover in the martian case there is the possibility to store fields over multiple times. Some Mars-specific variables (ecritphy,ecritstart,timestart) added in control_mod.F and (hour_ini) in temps.h

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d/moyzon_mod.F90 (modified) (2 diffs)

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

@@ -22 +22 @@
 
 CONTAINS
-
 !======================================================================
 SUBROUTINE moyzon_init
-
+#ifdef CPP_PHYS
+! This routine needs physics
 USE dimphy
 USE infotrac, only: nqtot
@@ -37 +37 @@
       ALLOCATE(zzlevbar(klon,llm+1),zzlaybar(klon,llm))
 
+#else
+    include "iniprint.h"
+    write(lunout,*) "moyzon_init Error: should only be called with physics"
+    stop
+#endif
 END SUBROUTINE moyzon_init