Ignore:
Timestamp:
Apr 29, 2020, 8:32:20 PM (4 years ago)
Author:
lguez
Message:

Do not output t_int if activate_ocean_skin == 2

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_write_mod.F90

    r3628 r3672  
    23042304
    23052305       if (activate_ocean_skin >= 1) then
    2306           CALL histwrite_phy(o_t_int, t_int)
     2306          if (activate_ocean_skin == 1) CALL histwrite_phy(o_t_int, t_int)
     2307          ! (no need to duplicate with netCDF variable "tsol_oce" if
     2308          ! activate_ocean_skin == 2)
     2309         
    23072310          CALL histwrite_phy(o_s_int, s_int)
    23082311          CALL histwrite_phy(o_ds_ns, ds_ns)
Note: See TracChangeset for help on using the changeset viewer.