Changeset 1266 for trunk/LMDZ.MARS/libf/phymars/iniwritesoil.F90

Timestamp:

May 19, 2014, 10:05:08 AM (11 years ago)

Author:

aslmd

Message:

LMDZ.MARS
IMPORTANT CHANGE

• Remove all reference/use of nlayermx and dimphys.h
• Made use of automatic arrays whenever arrays are needed with dimension nlayer
• Remove lots of obsolete reference to dimensions.h
• Converted iono.h and param_v4.h into corresponding modules

(with embedded subroutine to allocate arrays)
(no arrays allocated if thermosphere not used)

• Deleted param.h and put contents into module param_v4_h
• Adapted testphys1d, newstart, etc...
• Made DATA arrays in param_read to be initialized by subroutine

fill_data_thermos in module param_v4_h

• Optimized computations in paramfoto_compact (twice less dlog10 calculations)
• Checked consistency before/after modification in debug mode
• Checked performance is not impacted (same as before)

File:

• trunk/LMDZ.MARS/libf/phymars/iniwritesoil.F90 (modified) (2 diffs)

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

@@ -11 +11 @@
 
 #include"dimensions.h"
-!#include"dimphys.h"
 #include"paramet.h"
 #include"comgeom.h"
-!#include"comsoil.h"
 #include"netcdf.inc"
 
@@ -51 +49 @@
 endif
 ierr=NF_DEF_DIM(nid,"depth",nsoilmx,idim_depth)
-! nsoilmx known from dimphys.h
+! nsoilmx known from comsoil_h
 if (ierr.ne.NF_NOERR) then
   write(*,*)"iniwritesoil: Error, could not define depth dimension"