Ignore:
Timestamp:
Feb 16, 2018, 5:40:02 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Modifications for Data Request

Location:
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_ctrlout_mod.F90

    r3177 r3218  
    337337  TYPE(ctrl_out), SAVE :: o_rain_fall = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11, 11/), &
    338338    'rain_fall', 'Precip Totale liq', 'kg/(s*m2)', (/ ('', i=1, 10) /))
     339  TYPE(ctrl_out), SAVE :: o_rain_con = ctrl_out((/ 7, 7, 7, 10, 7, 10, 11, 11, 11, 11/), &
     340     'rain_con', 'Precip liq conv.', 'kg/(s*m2)', (/ ('', i=1, 10) /))
    339341  TYPE(ctrl_out), SAVE :: o_precip = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11, 11/), &
    340342    'precip', 'Precip Totale liq+sol', 'kg/(s*m2)', (/ ('', i=1, 10) /))
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_write_mod.F90

    r3177 r3218  
    703703          ENDDO
    704704       ENDIF
     705       CALL histwrite_phy(o_rain_con, rain_con)
    705706       CALL histwrite_phy(o_pluc, zx_tmp_fi2d)
    706707       CALL histwrite_phy(o_snow, snow_fall)
Note: See TracChangeset for help on using the changeset viewer.