Ignore:
Timestamp:
Sep 23, 2009, 5:42:16 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Mise en commentaire des sorties dynhist et dynhistave

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3d/leapfrog.F

    r1222 r1247  
    559559               IF (ok_dynzon) THEN
    560560#ifdef CPP_IOIPSL
    561                   CALL writedynav(histaveid, itau,vcov ,
    562      ,                 ucov,teta,pk,phi,q,masse,ps,phis)
     561!                  CALL writedynav(histaveid, itau,vcov ,
     562!     ,                 ucov,teta,pk,phi,q,masse,ps,phis)
    563563                  CALL bilan_dyn (2,dtvr*iperiod,dtvr*day_step*periodav,
    564564     ,                 ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
    … …  
    671671               IF (ok_dynzon) THEN
    672672#ifdef CPP_IOIPSL
    673                   CALL writedynav(histaveid, itau,vcov ,
    674      ,                 ucov,teta,pk,phi,q,masse,ps,phis)
     673!                  CALL writedynav(histaveid, itau,vcov ,
     674!     ,                 ucov,teta,pk,phi,q,masse,ps,phis)
    675675                  CALL bilan_dyn (2,dtvr*iperiod,dtvr*day_step*periodav,
    676676     ,                 ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
Note: See TracChangeset for help on using the changeset viewer.