Changeset 953 for trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

Timestamp:

May 2, 2013, 10:33:18 AM (12 years ago)

Author:

slebonnois

Message:

SL: optimisation pour le parallèle suite à tests Venus / petite correction appels routines secondaires dans Venus et Titan

File:

• trunk/LMDZ.VENUS/libf/phyvenus/physiq.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

@@ -33 +33 @@
 c lafin---input-L-variable logique indiquant le dernier passage
 c rjour---input-R-numero du jour de l'experience
-c gmtime--input-R-temps universel dans la journee (0 a RDAY s)
+c gmtime--input-R-fraction de la journee (0 a 1)
 c pdtphys-input-R-pas d'integration pour la physique (seconde)
 c paprs---input-R-pression pour chaque inter-couche (en Pa)
@@ -1087 +1087 @@
 c====================================================================
       if (ballons.eq.1) then
-         CALL ballon(30,pdtphys,rjourvrai,gmtime,rlatd,rlond,
+         CALL ballon(30,pdtphys,rjourvrai,gmtime*RDAY,rlatd,rlond,
 c    C               t,pplay,u,v,pphi)   ! alt above surface (smoothed for GCM)
      C               t,pplay,u,v,zphi)   ! alt above planet average radius
@@ -1119 +1119 @@
       ENDDO
 
-      CALL aaam_bud (27,klon,klev,rjourvrai,gmtime,
+      CALL aaam_bud (27,klon,klev,rjourvrai,gmtime*RDAY,
      C               ra,rg,romega,
      C               rlatd,rlond,pphis,