Changeset 3149 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jan 15, 2018, 5:16:11 PM (7 years ago)
Author:
musat
Message:

Bug fix on ok_4xCO2atm flag for rsut4co2, rlut4co2, etc diagnostics
IM

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90

    r3110 r3149  
    102102  !--    changed back to FALSE after first radiation call and corrected back to TRUE
    103103  !--    based on output requests
    104   LOGICAL, SAVE                                :: ok_4xCO2atm=.FALSE.
     104  LOGICAL, SAVE                                :: ok_4xCO2atm=.TRUE.
    105105  !$OMP THREADPRIVATE(ok_4xCO2atm)
    106106

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3148 r3149  
    38663866          !--as for swaero_diag, see above
    38673867          IF (debut) ok_4xCO2atm = .FALSE.
    3868 #endif
     3868
    38693869          !
    38703870          !IM 2eme calcul radiatif pour le cas perturbe ou au moins un
    … …  
    38773877              RCFC11_per.NE.RCFC11_act.OR. &
    38783878              RCFC12_per.NE.RCFC12_act) ok_4xCO2atm =.TRUE.
     3879#endif
    38793880   !
    38803881          IF (ok_4xCO2atm) THEN
Note: See TracChangeset for help on using the changeset viewer.