Changeset 3888 for LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
- Timestamp:
- May 5, 2021, 12:50:37 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
r3873 r3888 814 814 'flat_w', 'flat within_wake', 'W/m2', (/ ('', i=1, 10) /)) 815 815 !! 816 type(ctrl_out),save :: o_delta_tsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &817 'delta_tsurf', 'Temperature difference (w-x)', 'K', (/ ('', i=1, 10) /))818 816 type(ctrl_out),save :: o_cdragh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 819 817 'cdragh_x', 'cdragh off-wake', '', (/ ('', i=1, 10) /)) … … 1094 1092 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_sic', & 1095 1093 "TKE difference (w - x) "//clnsurf(4),"-", (/ ('', i=1, 10) /)) /) 1094 1095 TYPE(ctrl_out), SAVE :: o_delta_tsurf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1096 'delta_tsurf ', 'T_surf difference (w - x)', 'K', (/ ('', i=1, 10) /)) 1097 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_delta_tsurf_srf = (/ & 1098 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'delta_tsurf_ter', & 1099 "T_surf difference (w - x) "//clnsurf(1),"-", (/ ('', i=1, 10) /)), & 1100 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'delta_tsurf_lic', & 1101 "T_surf difference (w - x) "//clnsurf(2),"-", (/ ('', i=1, 10) /)), & 1102 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'delta_tsurf_oce', & 1103 "T_surf difference (w - x) "//clnsurf(3),"-", (/ ('', i=1, 10) /)), & 1104 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'delta_tsurf_sic', & 1105 "T_surf difference (w - x) "//clnsurf(4),"-", (/ ('', i=1, 10) /)) /) 1096 1106 1097 1107 TYPE(ctrl_out), SAVE :: o_kz = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), &
Note: See TracChangeset
for help on using the changeset viewer.