Changeset 1649 for trunk/NEMO/OPA_SRC/DIA/diawri.F90
- Timestamp:
- 2009-10-08T11:26:29+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r1585 r1649 306 306 CALL histdef( nid_T, "soicecov", "Ice fraction" , "[0,1]" , & ! fr_i 307 307 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 308 CALL histdef( nid_T, "sowindsp", "wind speed at 10m" , "m/s" , & ! wndm 309 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 308 310 #if ! defined key_coupled 309 311 CALL histdef( nid_T, "sohefldp", "Surface Heat Flux: Damping" , "W/m2" , & ! qrp … … 448 450 CALL histwrite( nid_T, "somxl010", it, hmlp , ndim_hT, ndex_hT ) ! mixed layer depth 449 451 CALL histwrite( nid_T, "soicecov", it, fr_i , ndim_hT, ndex_hT ) ! ice fraction 452 CALL histwrite( nid_T, "sowindsp", it, wndm , ndim_hT, ndex_hT ) ! wind speed 450 453 #if ! defined key_coupled 451 454 CALL histwrite( nid_T, "sohefldp", it, qrp , ndim_hT, ndex_hT ) ! heat flux damping
Note: See TracChangeset
for help on using the changeset viewer.