Changeset 5517
- Timestamp:
- 2015-06-30T15:09:58+02:00 (9 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/CONFIG/ORCA2_LIM3/EXP00/iodef.xml
r5407 r5517 190 190 <field field_ref="salinity_cat" name="salincat" /> 191 191 <field field_ref="brinevol_cat" name="sibricat" /> 192 <field field_ref="icetemp_cat" name="sitemcat" /> 193 <field field_ref="snwtemp_cat" name="sntemcat" /> 192 194 193 195 </file> -
trunk/NEMOGCM/CONFIG/SHARED/field_def.xml
r5463 r5517 281 281 <field id="salinity_cat" long_name="Sea-Ice Bulk salinity for categories" unit="g/kg" axis_ref="ncatice" /> 282 282 <field id="brinevol_cat" long_name="Brine volume for categories" unit="%" axis_ref="ncatice" /> 283 <field id="icetemp_cat" long_name="Ice temperature for categories" unit="degC" axis_ref="ncatice" /> 284 <field id="snwtemp_cat" long_name="Snow temperature for categories" unit="degC" axis_ref="ncatice" /> 283 285 284 286 <field id="micet" long_name="Mean ice temperature" unit="degC" /> -
trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90
r5407 r5517 60 60 REAL(wp) :: z1_365 61 61 REAL(wp) :: ztmp 62 REAL(wp), POINTER, DIMENSION(:,:,:) :: zoi, zei 62 REAL(wp), POINTER, DIMENSION(:,:,:) :: zoi, zei, zt_i, zt_s 63 63 REAL(wp), POINTER, DIMENSION(:,:) :: z2d, z2da, z2db, zswi ! 2D workspace 64 64 !!------------------------------------------------------------------- … … 66 66 IF( nn_timing == 1 ) CALL timing_start('limwri') 67 67 68 CALL wrk_alloc( jpi, jpj, jpl, zoi, zei )68 CALL wrk_alloc( jpi, jpj, jpl, zoi, zei, zt_i, zt_s ) 69 69 CALL wrk_alloc( jpi, jpj , z2d, z2da, z2db, zswi ) 70 70 … … 243 243 CALL iom_put( "snowthic_cat" , ht_s ) ! snow depth for categories 244 244 CALL iom_put( "salinity_cat" , sm_i ) ! salinity for categories 245 246 ! ice temperature 247 IF ( iom_use( "icetemp_cat" ) ) THEN 248 zt_i(:,:,:) = SUM( t_i(:,:,:,:), dim=3 ) * r1_nlay_i 249 CALL iom_put( "icetemp_cat" , zt_i - rt0 ) 250 ENDIF 251 252 ! snow temperature 253 IF ( iom_use( "snwtemp_cat" ) ) THEN 254 zt_s(:,:,:) = SUM( t_s(:,:,:,:), dim=3 ) * r1_nlay_s 255 CALL iom_put( "snwtemp_cat" , zt_s - rt0 ) 256 ENDIF 245 257 246 258 ! Compute ice age … … 280 292 ! not yet implemented 281 293 282 CALL wrk_dealloc( jpi, jpj, jpl, zoi, zei )294 CALL wrk_dealloc( jpi, jpj, jpl, zoi, zei, zt_i, zt_s ) 283 295 CALL wrk_dealloc( jpi, jpj , z2d, zswi, z2da, z2db ) 284 296
Note: See TracChangeset
for help on using the changeset viewer.