Changeset 1279 for LMDZ4/trunk/libf/phylmd/aeropt.F

Timestamp:

Dec 10, 2009, 10:02:56 AM (15 years ago)

Author:

Laurent Fairhead

Message:

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/aeropt.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/aeropt.F

@@ -16 +16 @@
 c Arguments:
 c
-      REAL paprs(klon,klev+1)
-      REAL pplay(klon,klev), t_seri(klon,klev)
-      REAL msulfate(klon,klev) ! masse sulfate ug SO4/m3  [ug/m^3]
-      REAL RHcl(klon,klev)     ! humidite relative ciel clair
-      REAL tau_ae(klon,klev,2) ! epaisseur optique aerosol
-      REAL piz_ae(klon,klev,2) ! single scattering albedo aerosol
-      REAL cg_ae(klon,klev,2)  ! asymmetry parameter aerosol
-      REAL ai(klon)            ! POLDER aerosol index 
+      REAL, INTENT(in) :: paprs(klon,klev+1)
+      REAL, INTENT(in) :: pplay(klon,klev), t_seri(klon,klev)
+      REAL, INTENT(in) :: msulfate(klon,klev) ! masse sulfate ug SO4/m3  [ug/m^3]
+      REAL, INTENT(in) :: RHcl(klon,klev)     ! humidite relative ciel clair
+      REAL, INTENT(out) :: tau_ae(klon,klev,2) ! epaisseur optique aerosol
+      REAL, INTENT(out) :: piz_ae(klon,klev,2) ! single scattering albedo aerosol
+      REAL, INTENT(out) :: cg_ae(klon,klev,2)  ! asymmetry parameter aerosol
+      REAL, INTENT(out) :: ai(klon)            ! POLDER aerosol index 
 c
 c Local