Changeset 2763 for branches/CMIP5_IPSL
- Timestamp:
- 2011-05-06T12:29:41+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CMIP5_IPSL/NEMO/LIM_SRC_2/limthd_2.F90
r1758 r2763 440 440 CALL iom_put( 'snowthic_cea', hsnif (:,:) * fr_i(:,:) ) ! Snow thickness [m] 441 441 CALL iom_put( 'icethic_cea' , hicif (:,:) * fr_i(:,:) ) ! Ice thickness [m] 442 CALL iom_put( 'sim' , ( rhosn * hsnif (:,:) + rhoic * hicif(:,:) ) * fr_i(:,:) ) ! sea ice and surface snow amount [kg/m2] 442 443 zztmp = 1.0 / rdt_ice 443 444 CALL iom_put( 'iceprod_cea' , hicifp (:,:) * zztmp ) ! Ice produced [m/s]
Note: See TracChangeset
for help on using the changeset viewer.