Changeset 2973 for LMDZ5/trunk


Ignore:
Timestamp:
Jul 31, 2017, 3:41:02 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Bypassing the call to phytrac when not needed.
Controlled by iflag_phytrac read in physiq.def and which is 0
by default (thus no call to phytrac by default)
LF

Location:
LMDZ5/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/clesphys.h

    r2952 r2973  
    9191       LOGICAL :: adjust_tropopause
    9292       LOGICAL :: ok_daily_climoz
     93! flag to bypass or not the phytrac module
     94       INTEGER :: iflag_phytrac
    9395
    9496       COMMON/clesphys/                                                 &
     
    137139     &     , iflag_ice_thermo, ok_gwd_rando, NSW, iflag_albedo          &
    138140     &     , ok_chlorophyll,ok_conserv_q, adjust_tropopause             &
    139      &     , ok_daily_climoz, ok_all_xml
     141     &     , ok_daily_climoz, ok_all_xml                                &
     142     &     , iflag_phytrac
    140143     
    141144       save /clesphys/
  • LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

    r2966 r2973  
    19061906#endif
    19071907!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     1908       IF (iflag_phytrac == 1 ) then
    19081909       IF (nqtot.GE.nqo+1) THEN
    19091910          DO iq=nqo+1, nqtot
     
    19361937          ENDDO
    19371938       ENDIF
     1939       ENDIF   !(iflag_phytrac==1)
     1940
    19381941
    19391942       IF (.NOT.vars_defined) THEN
  • LMDZ5/trunk/libf/phylmd/physiq_mod.F90

    r2968 r2973  
    12371237       fl_cor_ebil = 0 ! by default, no correction to ensure energy conservation
    12381238       CALL getin_p('fl_cor_ebil',fl_cor_ebil)
     1239       iflag_phytrac = 0 ! by default we do not want to call phytrac
     1240       CALL getin_p('iflag_phytrac',iflag_phytrac)
    12391241    ENDIF
    12401242
     
    42584260    ENDIF
    42594261
     4262    IF (iflag_phytrac == 1 ) THEN
     4263
    42604264#ifdef CPP_Dust
    42614265      CALL       phytracr_spl ( debut,lafin , jD_cur,jH_cur,iflag_con,       &  ! I
     
    43014305         tr_seri)
    43024306#endif
     4307    ENDIF    ! (iflag_phytrac=1)
    43034308
    43044309    IF (offline) THEN
Note: See TracChangeset for help on using the changeset viewer.