Changeset 691


Ignore:
Timestamp:
Apr 4, 2006, 5:05:16 PM (18 years ago)
Author:
lmdzadmin
Message:

Ajout flag ip_ebil_dyn (niveau de print conservation energie dans la dynamique)
IM

Location:
LMDZ4/trunk/libf/dyn3d
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/conf_gcm.F

    r541 r691  
    365365       iflag_con = 2
    366366       CALL getin('iflag_con',iflag_con)
     367!
     368!Config  Key  = ip_ebil_dyn
     369!Config  Desc = PRINT level for energy conserv. diag.
     370!Config  Def  = 0
     371!Config  Help = PRINT level for energy conservation diag. ;
     372!               les options suivantes existent :
     373!Config         0 pas de print
     374!Config         1 pas de print
     375!Config         2 print,
     376       ip_ebil_dyn = 0
     377       CALL getin('ip_ebil_dyn',ip_ebil_dyn)
     378!
    367379
    368380      DO i = 1, longcles

  • LMDZ4/trunk/libf/dyn3d/control.h

    r541 r691  
    88     .              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq ,
    99     .              periodav,ecritphy,iecrimoy,dayref,anneeref,
    10      .              raz_date,offline
     10     .              raz_date,offline,ip_ebil_dyn
    1111
    1212      INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,
    1313     .          idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date
     14     .          ,ip_ebil_dyn
    1415      REAL periodav, ecritphy
    1516      logical offline

  • LMDZ4/trunk/libf/dyn3d/gcm.F

    r550 r691  
    112112      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
    113113      CHARACTER*15 ztit
    114       INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
    115       SAVE      ip_ebil_dyn
    116       DATA      ip_ebil_dyn/0/
    117114c-jld
    118115
Note: See TracChangeset for help on using the changeset viewer.