Changeset 1542 for trunk/LMDZ.GENERIC/libf/phystd/comgeomfi_h.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/comgeomfi_h.F90 (modified) (1 diff)

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

@@ -4 +4 @@
        implicit none
 
-       REAL,ALLOCATABLE,DIMENSION(:),SAVE :: long,lati,area
-       REAL,SAVE :: totarea, totarea_planet
-!$OMP THREADPRIVATE(long,lati,area,totarea,totarea_planet)
+       REAL,SAVE :: totarea ! total surface (m2) for this local (MPI/OpenMP) domain
+       REAL,SAVE :: totarea_planet ! total planetary surface (m2)
+!$OMP THREADPRIVATE(totarea,totarea_planet)
 
        end module comgeomfi_h