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

Location:
LMDZ5/branches/IPSLCM6.0.12/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM6.0.12/libf/phylmd/clesphys.h

    r2952 r2974  
    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/branches/IPSLCM6.0.12/libf/phylmd/phys_output_write_mod.F90

    r2958 r2974  
    19011901#endif
    19021902!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     1903       IF (iflag_phytrac == 1 ) then
    19031904       IF (nqtot.GE.nqo+1) THEN
    19041905          DO iq=nqo+1, nqtot
    … …  
    19311932          ENDDO
    19321933       ENDIF
     1934       ENDIF   !(iflag_phytrac==1)
     1935
    19331936
    19341937       IF (.NOT.vars_defined) THEN

  • 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.