Changeset 1541 for trunk/LMDZ.MARS/libf/phymars/comgeomphy.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/comgeomphy.F90 (modified) (2 diffs)

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

@@ -1 +1 @@
 module comgeomphy
-   real,save,allocatable :: airephy(:)
-   real,save,allocatable :: cuphy(:)
-   real,save,allocatable :: cvphy(:)
-   real,save,allocatable :: rlatd(:)
-   real,save,allocatable :: rlond(:)
-!$OMP THREADPRIVATE(airephy,cuphy,cvphy,rlatd,rlond)
+   real,save,allocatable :: cell_area(:) ! airephy(:)
+   real,save,allocatable :: dx(:) !cuphy(:)
+   real,save,allocatable :: dy(:) !cvphy(:)
+   real,save,allocatable :: latitude(:) !rlatd(:)
+   real,save,allocatable :: longitude(:) !rlond(:)
+!$OMP THREADPRIVATE(cell_area,dx,dy,latitude,longitude)
 contains
   
@@ -13 +13 @@
     
  
-    allocate(airephy(klon_omp))
-    allocate(cuphy(klon_omp))
-    allocate(cvphy(klon_omp))
-    allocate(rlatd(klon_omp))
-    allocate(rlond(klon_omp))
+    allocate(cell_area(klon_omp))
+    allocate(dx(klon_omp))
+    allocate(dy(klon_omp))
+    allocate(latitude(klon_omp))
+    allocate(longitude(klon_omp))
 
   end subroutine initcomgeomphy