Changeset 9071
- Timestamp:
- 2017-12-15T11:51:41+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceupdate.F90
r9019 r9071 27 27 USE dom_oce ! ocean domain 28 28 USE ice ! sea-ice: variables 29 !!gm It should be probably better to pass these variable in argument of the routine, 30 !!gm rather than having this long list in USE. This will also highlight what is updated, and what is just use. 31 USE sbc_ice 32 USE sbc_oce 33 !!gm end 29 USE sbc_ice ! Surface boundary condition: ice fields 30 USE sbc_oce ! Surface boundary condition: ocean fields 34 31 USE sbccpl ! Surface boundary condition: coupled interface 35 32 USE icealb ! sea-ice: albedo parameters … … 265 262 IF( iom_use('qt_oce' ) ) CALL iom_put( "qt_oce" , ( qsr_oce + qns_oce ) * ( 1._wp - at_i_b ) + qemp_oce ) 266 263 IF( iom_use('qt_ice' ) ) CALL iom_put( "qt_ice" , SUM( ( qns_ice + qsr_ice ) * a_i_b, dim=3 ) + qemp_ice ) 267 IF( iom_use('qt_oce_ai' ) ) CALL iom_put( "qt_oce_ai" , hfx_out 268 IF( iom_use('qt_atm_oi' ) ) CALL iom_put( "qt_atm_oi" , hfx_in 264 IF( iom_use('qt_oce_ai' ) ) CALL iom_put( "qt_oce_ai" , hfx_out * tmask(:,:,1) ) ! total heat flux at the ocean surface: interface oce-(ice+atm) 265 IF( iom_use('qt_atm_oi' ) ) CALL iom_put( "qt_atm_oi" , hfx_in * tmask(:,:,1) ) ! total heat flux at the oce-ice surface: interface atm-(ice+oce) 269 266 IF( iom_use('qemp_oce' ) ) CALL iom_put( "qemp_oce" , qemp_oce ) ! Downward Heat Flux from E-P over ocean 270 267 IF( iom_use('qemp_ice' ) ) CALL iom_put( "qemp_ice" , qemp_ice ) ! Downward Heat Flux from E-P over ice
Note: See TracChangeset
for help on using the changeset viewer.