Changeset 1037 for trunk/NEMO/C1D_SRC/diawri_c1d.F90
- Timestamp:
- 2008-05-30T18:21:28+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/C1D_SRC/diawri_c1d.F90
r900 r1037 25 25 USE ice_oce ! ice variables 26 26 USE phycst ! physical constants 27 USE ocfzpt ! ???28 27 USE zdfmxl ! mixed layer 29 28 USE daymod ! calendar … … 185 184 CALL histdef( nid_T, "somixhgt", "Turbocline Depth" , "m" , & ! hmld 186 185 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 187 CALL histdef( nid_T, "soicecov", "Ice Cover" , "[0,1]" , & ! freeze186 CALL histdef( nid_T, "soicecov", "Ice Fraction" , "[0,1]" , & ! fr_i 188 187 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) 189 188 IF( ln_ssr ) THEN … … 304 303 CALL histwrite( nid_T, "somxlavt", it, zw2d , ndim_hT, ndex_hT ) ! Kz at bottom of mixed layer 305 304 CALL histwrite( nid_T, "somixhgt", it, hmld , ndim_hT, ndex_hT ) ! turbocline depth 306 CALL histwrite( nid_T, "soicecov", it, fr eeze , ndim_hT, ndex_hT ) ! ice cover305 CALL histwrite( nid_T, "soicecov", it, fr_i , ndim_hT, ndex_hT ) ! ice fraction 307 306 IF( ln_ssr ) THEN 308 307 CALL histwrite( nid_T, "sohefldp", it, qrp , ndim_hT, ndex_hT ) ! heat flux damping
Note: See TracChangeset
for help on using the changeset viewer.