Changeset 4696 for trunk/NEMOGCM
- Timestamp:
- 2014-06-26T15:10:44+02:00 (10 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/iodef.xml
r4272 r4696 82 82 <field field_ref="iceprod_cea" name="sip" long_name="sea_ice_thickness" /> 83 83 <field field_ref="ist_ipa" /> 84 <field field_ref="ioceflxb" />85 84 <field field_ref="uice_ipa" /> 86 85 <field field_ref="vice_ipa" /> -
trunk/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/iodef.xml
r4245 r4696 101 101 <field field_ref="iceprod_cea" name="sip" long_name="sea_ice_thickness" /> 102 102 <field field_ref="ist_ipa" /> 103 <field field_ref="ioceflxb" />104 103 <field field_ref="uice_ipa" /> 105 104 <field field_ref="vice_ipa" /> -
trunk/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/iodef.xml
r4186 r4696 84 84 <field field_ref="iceprod_cea" name="sip" long_name="sea_ice_thickness" /> 85 85 <field field_ref="ist_ipa" /> 86 <field field_ref="ioceflxb" />87 86 <field field_ref="uice_ipa" /> 88 87 <field field_ref="vice_ipa" /> -
trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90
r4624 r4696 440 440 !-------------------------------------------------------------------------------- 441 441 ztmp(:,:) = 1. - pfrld(:,:) ! fraction of ice after the dynamic, before the thermodynamic 442 CALL iom_put( 'ioceflxb', fbif ) ! Oceanic flux at the ice base [W/m2 ???]443 442 CALL iom_put( 'ist_cea', (sist(:,:) - rt0) * ztmp(:,:) ) ! Ice surface temperature [Celius] 444 443 CALL iom_put( 'qsr_ai_cea', qsr_ice(:,:,1) * ztmp(:,:) ) ! Solar flux over the ice [W/m2] -
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.