Changeset 4696 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
- Timestamp:
- 2014-06-26T15:10:44+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
r4624 r4696 333 333 CALL histdef( kid, "ileadfra", "Ice concentration" , "-" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 334 334 CALL histdef( kid, "iicetemp", "Ice temperature" , "K" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 335 CALL histdef( kid, "ioceflxb", "flux at ice base" , "w/m2" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt )336 335 CALL histdef( kid, "iicevelu", "i-Ice speed (I-point)" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) 337 336 CALL histdef( kid, "iicevelv", "j-Ice speed (I-point)" , "m/s" , jpi, jpj, kh_i, 1, 1, 1, -99, 32, "inst(x)", rdt, rdt ) … … 351 350 CALL histwrite( kid, "ileadfra", kt, 1. - frld(:,:) , jpi*jpj, (/1/) ) 352 351 CALL histwrite( kid, "iicetemp", kt, sist(:,:) - rt0, jpi*jpj, (/1/) ) 353 CALL histwrite( kid, "ioceflxb", kt, fbif , jpi*jpj, (/1/) )354 352 CALL histwrite( kid, "iicevelu", kt, u_ice , jpi*jpj, (/1/) ) 355 353 CALL histwrite( kid, "iicevelv", kt, v_ice , jpi*jpj, (/1/) )
Note: See TracChangeset
for help on using the changeset viewer.