Changeset 1247


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

Mise en commentaire des sorties dynhist et dynhistave

Location:
LMDZ4/branches/LMDZ4-dev/libf
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3d/gcm.F

    r1222 r1247  
    442442      t_ops = iecri * daysec
    443443      t_wrt = iecri * daysec
    444       CALL inithist(dynhist_file,day_ref,annee_ref,time_step,
    445      .              t_ops, t_wrt, histid, histvid)
    446 
    447       IF (ok_dynzon) THEN
    448          t_ops = iperiod * time_step
    449          t_wrt = periodav * daysec
    450          CALL initdynav(dynhistave_file,day_ref,annee_ref,time_step,
    451      .        t_ops, t_wrt, histaveid)
    452       END IF
     444!      CALL inithist(dynhist_file,day_ref,annee_ref,time_step,
     445!    .              t_ops, t_wrt, histid, histvid)
     446
     447!     IF (ok_dynzon) THEN
     448!        t_ops = iperiod * time_step
     449!        t_wrt = periodav * daysec
     450!        CALL initdynav(dynhistave_file,day_ref,annee_ref,time_step,
     451!    .        t_ops, t_wrt, histaveid)
     452!     END IF
    453453      dtav = iperiod*dtvr/daysec
    454454      endif
  • 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)
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F

    r1222 r1247  
    468468      t_ops = iecri * daysec
    469469      t_wrt = iecri * daysec
    470       CALL inithist_p(dynhist_file,day_ref,annee_ref,time_step,
    471      .              t_ops, t_wrt, histid, histvid)
     470!      CALL inithist_p(dynhist_file,day_ref,annee_ref,time_step,
     471!     .              t_ops, t_wrt, histid, histvid)
    472472
    473473      IF (ok_dynzon) THEN
    474474         t_ops = iperiod * time_step
    475475         t_wrt = periodav * daysec
    476          CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step,
    477      .        t_ops, t_wrt, histaveid)
     476!         CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step,
     477!     .        t_ops, t_wrt, histaveid)
    478478      END IF
    479479      dtav = iperiod*dtvr/daysec
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

    r1222 r1247  
    13141314c$OMP BARRIER
    13151315c$OMP MASTER
    1316               CALL writedynav_p(histaveid, itau,vcov ,
    1317      ,                          ucov,teta,pk,phi,q,masse,ps,phis)
     1316!              CALL writedynav_p(histaveid, itau,vcov ,
     1317!     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
    13181318
    13191319c ATTENTION!!! bilan_dyn_p ne marche probablement pas avec OpenMP
     
    13661366#ifdef CPP_IOIPSL
    13671367 
    1368               CALL writehist_p(histid,histvid, itau,vcov,
    1369      &                         ucov,teta,phi,q,masse,ps,phis)
     1368!              CALL writehist_p(histid,histvid, itau,vcov,
     1369!     &                         ucov,teta,phi,q,masse,ps,phis)
    13701370
    13711371#endif
     
    14821482c$OMP BARRIER
    14831483c$OMP MASTER
    1484                CALL writedynav_p(histaveid, itau,vcov ,
    1485      ,                          ucov,teta,pk,phi,q,masse,ps,phis)
     1484!               CALL writedynav_p(histaveid, itau,vcov ,
     1485!     ,                          ucov,teta,pk,phi,q,masse,ps,phis)
    14861486               CALL bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav,
    14871487     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
     
    15271527#ifdef CPP_IOIPSL
    15281528
    1529                 CALL writehist_p(histid, histvid, itau,vcov ,
    1530      &                           ucov,teta,phi,q,masse,ps,phis)
     1529!                CALL writehist_p(histid, histvid, itau,vcov ,
     1530!     &                           ucov,teta,phi,q,masse,ps,phis)
    15311531#endif
    15321532! For some Grads output (but does it work?)
Note: See TracChangeset for help on using the changeset viewer.