Changeset 1724 for LMDZ5/trunk/libf/phylmd/phys_output_mod.F90
- Timestamp:
- Feb 7, 2013, 3:56:38 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_mod.F90
r1683 r1724 189 189 ctrl_out((/ 1, 6, 10, 10, 10, 10 /),'tsol_oce'), & 190 190 ctrl_out((/ 1, 6, 10, 10, 10, 10 /),'tsol_sic') /) 191 192 type(ctrl_out),save,dimension(4) :: o_evappot_srf = (/ ctrl_out((/ 1, 6, 10, 10, 10, 10 /),'evappot_ter'), & 193 ctrl_out((/ 4, 6, 10, 10, 10, 10 /),'evappot_lic'), & 194 ctrl_out((/ 4, 6, 10, 10, 10, 10 /),'evappot_oce'), & 195 ctrl_out((/ 4, 6, 10, 10, 10, 10 /),'evappot_sic') /) 191 196 192 197 type(ctrl_out),save,dimension(4) :: o_sens_srf = (/ ctrl_out((/ 1, 6, 10, 7, 10, 10 /),'sens_ter'), & … … 1042 1047 o_tsol_srf(nsrf)%flag,o_tsol_srf(nsrf)%name,"Temperature "//clnsurf(nsrf),"K") 1043 1048 CALL histdef2d(iff,clef_stations(iff), & 1049 o_evappot_srf(nsrf)%flag,o_evappot_srf(nsrf)%name,"Temperature "//clnsurf(nsrf),"K") 1050 CALL histdef2d(iff,clef_stations(iff), & 1044 1051 o_ustar_srf(nsrf)%flag,o_ustar_srf(nsrf)%name,"Friction velocity "//clnsurf(nsrf),"m/s") 1045 1052 CALL histdef2d(iff,clef_stations(iff), &
Note: See TracChangeset
for help on using the changeset viewer.