Changeset 1542 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/iniphysiq_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/dynphy_lonlat/phystd/iniphysiq_mod.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/iniphysiq_mod.F90

@@ -16 +16 @@
 use control_mod, only: nday 
 use comgeomphy, only : initcomgeomphy, &
-                       airephy, & ! physics grid area (m2)
-                       cuphy, & ! cu coeff. (u_covariant = cu * u)
-                       cvphy, & ! cv coeff. (v_covariant = cv * v)
-                       rlond, & ! longitudes
-                       rlatd ! latitudes
+                       cell_area, & ! physics grid area (m2)
+                       dx, & ! cu coeff. (u_covariant = cu * u)
+                       dy, & ! cv coeff. (v_covariant = cv * v)
+                       longitude, & ! longitudes (rad)
+                       latitude ! latitudes (rad)
 use surf_heat_transp_mod, only: ini_surf_heat_transp
 use infotrac, only : nqtot ! number of advected tracers
@@ -170 +170 @@
 
 offset=klon_mpi_begin-1
-airephy(1:klon_omp)=airefi(offset+klon_omp_begin:offset+klon_omp_end)
-cuphy(1:klon_omp)=cufi(offset+klon_omp_begin:offset+klon_omp_end)
-cvphy(1:klon_omp)=cvfi(offset+klon_omp_begin:offset+klon_omp_end)
-rlond(1:klon_omp)=lonfi(offset+klon_omp_begin:offset+klon_omp_end)
-rlatd(1:klon_omp)=latfi(offset+klon_omp_begin:offset+klon_omp_end)
+cell_area(1:klon_omp)=airefi(offset+klon_omp_begin:offset+klon_omp_end)
+dx(1:klon_omp)=cufi(offset+klon_omp_begin:offset+klon_omp_end)
+dy(1:klon_omp)=cvfi(offset+klon_omp_begin:offset+klon_omp_end)
+longitude(1:klon_omp)=lonfi(offset+klon_omp_begin:offset+klon_omp_end)
+latitude(1:klon_omp)=latfi(offset+klon_omp_begin:offset+klon_omp_end)
 
 ! copy over preff , ap() and bp() 
@@ -191 +191 @@
 ! and do some initializations 
 call inifis(klon_omp,nlayer,nqtot,pdayref,punjours,nday,ptimestep, &
-            rlatd,rlond,airephy,prad,pg,pr,pcpp)
+            latitude,longitude,cell_area,prad,pg,pr,pcpp)
 
 !$OMP END PARALLEL