Changeset 1542 for trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

Timestamp:

Apr 18, 2016, 8:45:35 AM (9 years ago)

Author:

emillour

Message:

Generic GCM:

• fix for 1D in writediagfi to enable writing at "ecritphy" rate.
• move iniprint.h to "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.GENERIC/libf/phystd/inifis_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

@@ -13 +13 @@
   use datafile_mod, only: datadir
   use comdiurn_h, only: sinlat, coslat, sinlon, coslon
-  use comgeomfi_h, only: long, lati, area, totarea, totarea_planet
+  use comgeomfi_h, only: totarea, totarea_planet
   use comsoil_h, only: ini_comsoil_h, nsoilmx, lay1_soil, alpha_soil
   use time_phylmdz_mod, only: ecritphy,day_step,iphysiq, &
@@ -710 +710 @@
 !     ------------------------
 
-  ! ALLOCATE ARRAYS IN comgeomfi_h
-  IF (.not. ALLOCATED(lati)) ALLOCATE(lati(ngrid))
-  IF (.not. ALLOCATED(long)) ALLOCATE(long(ngrid))
-  IF (.not. ALLOCATED(area)) ALLOCATE(area(ngrid))
-
-  CALL SCOPY(ngrid,plon,1,long,1)
-  CALL SCOPY(ngrid,plat,1,lati,1)
-  CALL SCOPY(ngrid,parea,1,area,1)
-  totarea=SSUM(ngrid,area,1)
-  call planetwide_sumval(area,totarea_planet)
+  ! Initializations for comgeomfi_h
+  totarea=SSUM(ngrid,parea,1)
+  call planetwide_sumval(parea,totarea_planet)
 
   !! those are defined in comdiurn_h.F90