Changeset 1542 for trunk/LMDZ.GENERIC/libf/phystd/condense_co2.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/condense_co2.F90 (modified) (2 diffs)

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

@@ -11 +11 @@
       use aerosol_mod, only : iaero_co2
       USE surfdat_h, only: emisice, emissiv
-      USE comgeomfi_h, only: lati
+      USE comgeomphy, only: latitude ! in radians
       USE tracer_h, only: noms, rho_co2
       use comcstfi_mod, only: g, r, cpp
@@ -430 +430 @@
       DO ig=1,ngrid
       
-         IF(lati(ig).LT.0.) THEN
+         IF(latitude(ig).LT.0.) THEN
             icap=2 ! Southern Hemisphere
          ELSE