Changeset 854 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Nov 27, 2012, 6:50:04 PM (12 years ago)

Author:

slebonnois

Message:

SL: correction d'un bug pour Titan (zlsm1) + quelques petits ajustements

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq.F (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/physiq.F

@@ -278 +278 @@
       REAL dist, rmu0(klon), fract(klon), pdecli
       REAL zday
-      REAL zls,zlsdeg
-      REAL zlsm1 ! for write_hist* (NB: it is not properly initialized!!)
+      REAL zls,zlsdeg,zlsm1
 c
       INTEGER i, k, iq, ig, j, ll, l
@@ -852 +851 @@
 
       CALL orbite(zls,dist,pdecli) 
+      IF (debut) zlsm1=zls
 
 c dans zenang, Ls en degres ; dans mucorr, Ls en radians