Changeset 1279 for LMDZ4/trunk/libf/phylmd/aaam_bud.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/aaam_bud.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/aaam_bud.F

@@ -39 +39 @@
 c nlon----input-I-Total number of horizontal points that get into physics
 c nlev----input-I-Number of vertical levels
-c rjour---input-R-Jour compte depuis le debut de la simu (run.def)
-c rsec----input-R-Seconde de la journee
-c rea-----input-R-Earth radius
-c rg------input-R-gravity constant
-c ome-----input-R-Earth rotation rate
+c rjour        -R-Jour compte depuis le debut de la simu (run.def)
+c rsec         -R-Seconde de la journee
+c rea          -R-Earth radius
+c rg           -R-gravity constant
+c ome          -R-Earth rotation rate
 c plat ---input-R-Latitude en degres
 c plon ---input-R-Longitude en degres
@@ -94 +94 @@
 c
       INTEGER iam,nlon,nlev
-      REAL rjour,rsec,rea,rg,ome
+      REAL, intent(in):: rjour,rsec,rea,rg,ome
       REAL plat(nlon),plon(nlon),phis(nlon)
       REAL dragu(nlon),liftu(nlon),phyu(nlon)