Ignore:
Timestamp:
Jul 31, 2017, 4:10:16 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Inclusion of iflag_phytrac in 6.0.12 branch
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM6.0.12/libf/phylmd/physiq_mod.F90

    r2952 r2974  
    12381238       fl_cor_ebil = 0 ! by default, no correction to ensure energy conservation
    12391239       CALL getin_p('fl_cor_ebil',fl_cor_ebil)
     1240       iflag_phytrac = 0 ! by default we do not want to call phytrac
     1241       CALL getin_p('iflag_phytrac',iflag_phytrac)
    12401242    ENDIF
    12411243
    … …  
    42604262    ENDIF
    42614263
     4264    IF (iflag_phytrac == 1 ) THEN
     4265
    42624266#ifdef CPP_Dust
    42634267      CALL       phytracr_spl ( debut,lafin , jD_cur,jH_cur,iflag_con,       &  ! I
    … …  
    43034307         tr_seri)
    43044308#endif
     4309    ENDIF    ! (iflag_phytrac=1)
    43054310
    43064311    IF (offline) THEN
Note: See TracChangeset for help on using the changeset viewer.