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

Timestamp:

Apr 17, 2016, 10:23:21 PM (9 years ago)

Author:

emillour

Message:

Mars GCM:

• fix for 1D in writediagfi to enable writing at "ecritphy" rate.
• removed iniprint.h from phymars/dyn1d since it is in "misc"
• Some code cleanup in anticipation of future updates:
  • changed variable names in comgeomphy.F90: give them more explicit names: rlond => longitude , rlatd => latitude, airephy => cell_area, cuphy => dx , cvphy => dy
  • removed long(), lati() and area() from comgeomfi_h.F90, use longitude(), latitude() and cell_are() from comgeomphy.F90 instead

EM

File:

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

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

@@ -13 +13 @@
 
 use comsoil_h, only: nsoilmx, inertiedat
-use comgeomphy, only: airephy
+use comgeomphy, only: cell_area
 use time_phylmdz_mod, only: ecritphy, day_step, iphysiq
 use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather
@@ -102 +102 @@
    ! Gather inertiedat() soil thermal inertia on physics grid
    call Gather(inertiedat,inertiafi_glo)
-   ! Gather airephy() mesh area on physics grid
-   call Gather(airephy,areafi_glo)
+   ! Gather cell_area() mesh area on physics grid
+   call Gather(cell_area,areafi_glo)
 #else
          inertiafi_glo(:,:)=inertiedat(:,:)
-         areafi_glo(:)=airephy(:)
+         areafi_glo(:)=cell_area(:)
 #endif