Changeset 1047 for trunk/LMDZ.MARS/libf/phymars/dimphys.h

Timestamp:

Sep 23, 2013, 9:56:47 AM (11 years ago)

Author:

emillour

Message:

Mars GCM:

• IMPORTANT CHANGE: Removed all reference/use of ngridmx (dimphys.h) in routines (necessary prerequisite to using parallel dynamics); in most cases this just means adding 'ngrid' as routine argument, and making local saved variables allocatable (and allocated at first call). In the process, had to convert many *.h files to equivalent modules: yomaer.h => yomaer_h.F90 , surfdat.h => surfdat_h.F90 , comsaison.h => comsaison_h.F90 , yomlw.h => yomlw_h.F90 , comdiurn.h => comdiurn_h.F90 , dimradmars.h => dimradmars_mod.F90 , comgeomfi.h => comgeomfi_h.F90, comsoil.h => comsoil_h.F90 , slope.h => slope_mod.F90
• Also updated EOF routines, everything is now in eofdump_mod.F90
• Removed unused routine lectfux.F (in dyn3d)

EM

File:

• trunk/LMDZ.MARS/libf/phymars/dimphys.h (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/dimphys.h

@@ -4 +4 @@
 ! ngridmx : number of horizontal grid points
 ! note: the -1/jjm term will be 0; unless jj=1
-      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)   
+!      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)   
 ! nlayermx : number of atmospheric layers
       integer, parameter :: nlayermx = llm 
 ! nsoilmx : number of subterranean layers
 !EM: old soil routine:      integer, parameter :: nsoilmx = 10
-      integer, parameter :: nsoilmx = 18 
+!      integer, parameter :: nsoilmx = 18 ! nsoilmx is now in comsoil_h
 !-----------------------------------------------------------------------