Changeset 1047 for trunk/LMDZ.MARS/libf/phymars/writediagsoil.F90

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/writediagsoil.F90 (modified) (3 diffs)

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

@@ -12 +12 @@
 ! Modifs: Aug.2010 Ehouarn: enforce outputs to be real*4
 
+use comsoil_h, only: nsoilmx
+
 implicit none
 
 #include"dimensions.h"
-#include"dimphys.h"
+!#include"dimphys.h"
 #include"paramet.h"
 #include"control.h"
-#include"comsoil.h"
+!#include"comsoil.h"
 #include"netcdf.inc"
 
@@ -29 +31 @@
 integer,intent(in) :: dimpx ! dimension of the variable (3,2 or 0)
 real,dimension(ngrid,nsoilmx),intent(in) :: px ! variable
-! Note: nsoilmx is a common parameter set in 'dimphys.h'
+! Note: nsoilmx is a parameter set in 'comsoil_h'
 
 ! Local variables:
 real*4,dimension(iip1,jjp1,nsoilmx) :: data3 ! to store 3D data
-! Note iip1,jjp1 known from paramet.h; nsoilmx known from dimphys.h
+! Note iip1,jjp1 known from paramet.h; nsoilmx known from comsoil_h
 real*4,dimension(iip1,jjp1) :: data2 ! to store 2D data
 real*4 :: data0 ! to store 0D data
@@ -80 +82 @@
   
   ! Define dimensions and axis attributes
-  call iniwritesoil(nid)
+  call iniwritesoil(nid,ngrid)
   
   ! set zitau to -1 to be compatible with zitau incrementation step below