Changeset 1215 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Jul 23, 2009, 5:52:59 PM (15 years ago)

Author:

lguez

Message:

-- Made "ozonecm" a function instead of a subroutine. Used assumed shape
arguments in "ozonecm".

-- Corrected long name and computation of NetCDF variable "ozone" in
the files "hist*".

-- Corrected comments for ozone variables.

-- In the case "read_climoz", used variables "rmd" and "rmo3" from
"YOMCST.h" instead of writing approximate values.

-- Replaced "real*..." declarations (not conforming to Fortran standard)
by "real(kind=...)" declarations.

-- Replaced value "1./46.6968" in ozone computations by the equivalent
(but clearer) "dobson_u * 1e3" (relative difference ~ 1e-5).

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_state_var_mod.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_state_var_mod.F90

@@ -202 +202 @@
       REAL,ALLOCATABLE,SAVE :: albsol1(:), albsol2(:)
 !$OMP THREADPRIVATE(albsol1,albsol2)
-      REAL,ALLOCATABLE,SAVE :: wo(:,:)
-!$OMP THREADPRIVATE(wo)
-!
+
+      REAL, ALLOCATABLE, SAVE:: wo(:,:)
+      ! column-density of ozone in a layer, in kilo-Dobsons
+      !$OMP THREADPRIVATE(wo)
+
 ! heat : chauffage solaire
 ! heat0: chauffage solaire ciel clair