Changeset 854 for trunk/LMDZ.TITAN/libf


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r849 r854  
    278278      REAL dist, rmu0(klon), fract(klon), pdecli
    279279      REAL zday
    280       REAL zls,zlsdeg
    281       REAL zlsm1 ! for write_hist* (NB: it is not properly initialized!!)
     280      REAL zls,zlsdeg,zlsm1
    282281c
    283282      INTEGER i, k, iq, ig, j, ll, l
    … …  
    852851
    853852      CALL orbite(zls,dist,pdecli)
     853      IF (debut) zlsm1=zls
    854854
    855855c dans zenang, Ls en degres ; dans mucorr, Ls en radians
Note: See TracChangeset for help on using the changeset viewer.