Changeset 1773 for trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

Timestamp:

Aug 27, 2017, 8:51:38 AM (7 years ago)

Author:

aslmd

Message:

LMDZ.MARS setting the stage for maybe fixing nesting in the LMD_MM_MARS 2. deallocate before allocating in phys_state_var_init_mod; no impact on regular runs (useless); important for nesting; c'est peut etre un detail pour vous mais pour moi ca veut dire beaucoup.

File:

• trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90 (modified) (3 diffs)

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

@@ -34 +34 @@
 !=======================================================================
 
-      use slope_mod, only: ini_slope_mod
-      use comsaison_h, only: ini_comsaison_h
-      use surfdat_h, only: ini_surfdat_h
-      use comgeomfi_h, only: ini_comgeomfi_h
-      use comsoil_h, only: ini_comsoil_h
-      use dimradmars_mod, only: ini_dimradmars_mod
-      use yomlw_h, only: ini_yomlw_h
-      use conc_mod, only: ini_conc_mod
-      use turb_mod, only: ini_turb_mod
+      use slope_mod, only: ini_slope_mod,end_slope_mod
+      use comsaison_h, only: ini_comsaison_h,end_comsaison_h
+      use surfdat_h, only: ini_surfdat_h,end_surfdat_h
+      use comgeomfi_h, only: ini_comgeomfi_h,end_comgeomfi_h
+      use comsoil_h, only: ini_comsoil_h,end_comsoil_h
+      use dimradmars_mod, only: ini_dimradmars_mod,end_dimradmars_mod
+      use yomlw_h, only: ini_yomlw_h,end_yomlw_h
+      use conc_mod, only: ini_conc_mod,end_conc_mod
+      use turb_mod, only: ini_turb_mod,end_turb_mod
       use comcstfi_h, only: pi,rad,cpp,g,r,rcp
-      use tracer_mod, only: ini_tracer_mod
+      use tracer_mod, only: ini_tracer_mod,end_tracer_mod
       use time_phylmdz_mod, only: init_time
 
@@ -56 +56 @@
 
       ! set dimension and allocate arrays in tracer_mod
+      call end_tracer_mod
       call ini_tracer_mod(nq,tname)
 
@@ -70 +71 @@
 
       ! allocate "slope_mod" arrays
+      call end_slope_mod
       call ini_slope_mod(ngrid)
 
       ! allocate "comsaison_h" arrays
+      call end_comsaison_h
       call ini_comsaison_h(ngrid)
 
       ! allocate "surfdat_h" arrays
+      call end_surfdat_h
       call ini_surfdat_h(ngrid,nq)
 
       ! allocate "comgeomfi_h" arrays
+      call end_comgeomfi_h
       call ini_comgeomfi_h(ngrid)
 
       ! allocate "comsoil_h" arrays
+      call end_comsoil_h
       call ini_comsoil_h(ngrid)
 
       ! set some variables in "dimradmars_mod"
+      call end_dimradmars_mod
       call ini_dimradmars_mod(ngrid,nlayer)
 
       ! allocate arrays in "yomlw_h"
+      call end_yomlw_h
       call ini_yomlw_h(ngrid)
 
       ! allocate arrays in "conc_mod" (aeronomars)
+      call end_conc_mod
       call ini_conc_mod(ngrid,nlayer)
 
       ! allocate arrays in "turb_mod"
+      call end_turb_mod
       call ini_turb_mod(ngrid,nlayer)