Changeset 14100 for NEMO/trunk/src
- Timestamp:
- 2020-12-04T16:13:29+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbccpl.F90
r14072 r14100 1765 1765 CASE( 'none' ) ! Not available as for now: needs additional coding below when computing zevap_oce 1766 1766 ! ! since fields received are not defined with none option 1767 CALL ctl_stop( 'STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_emp value in namelist namsbc_cpl')1767 CALL ctl_stop('STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_emp value in namelist namsbc_cpl') 1768 1768 END SELECT 1769 1769 … … 2037 2037 #endif 2038 2038 ! outputs 2039 IF( srcv(jpr_cal)%laction ) CALL iom_put('hflx_cal_cea' , - frcv(jpr_cal)%z3(:,:,1) * rLfus ) ! latent heat from calving 2040 IF( srcv(jpr_icb)%laction ) CALL iom_put('hflx_icb_cea' , - frcv(jpr_icb)%z3(:,:,1) * rLfus ) ! latent heat from icebergs melting 2041 IF( iom_use('hflx_rain_cea') ) CALL iom_put('hflx_rain_cea' , ( tprecip(:,:) - sprecip(:,:) ) * zcptrain(:,:) ) ! heat flux from rain (cell average) 2042 IF( iom_use('hflx_evap_cea') ) CALL iom_put('hflx_evap_cea' , ( frcv(jpr_tevp)%z3(:,:,1) - frcv(jpr_ievp)%z3(:,:,1) & 2043 & * picefr(:,:) ) * zcptn(:,:) * tmask(:,:,1) ) ! heat flux from evap (cell average) 2044 IF( iom_use('hflx_prec_cea') ) CALL iom_put('hflx_prec_cea' , sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) + & ! heat flux from all precip (cell avg) 2045 & ( tprecip(:,:) - sprecip(:,:) ) * zcptrain(:,:) ) 2046 IF( iom_use('hflx_snow_cea') ) CALL iom_put('hflx_snow_cea' , sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) ) ! heat flux from snow (cell average) 2047 IF( iom_use('hflx_snow_ao_cea') ) CALL iom_put('hflx_snow_ao_cea', sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) & 2048 & * ( 1._wp - zsnw(:,:) ) ) ! heat flux from snow (over ocean) 2049 IF( iom_use('hflx_snow_ai_cea') ) CALL iom_put('hflx_snow_ai_cea', sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) & 2050 & * zsnw(:,:) ) ! heat flux from snow (over ice) 2039 IF ( srcv(jpr_cal)%laction ) CALL iom_put('hflx_cal_cea' , - frcv(jpr_cal)%z3(:,:,1) * rLfus ) ! latent heat from calving 2040 IF ( srcv(jpr_icb)%laction ) CALL iom_put('hflx_icb_cea' , - frcv(jpr_icb)%z3(:,:,1) * rLfus ) ! latent heat from icebergs melting 2041 IF ( iom_use('hflx_rain_cea') ) & ! heat flux from rain (cell average) 2042 & CALL iom_put('hflx_rain_cea' , ( tprecip(:,:) - sprecip(:,:) ) * zcptrain(:,:) ) 2043 IF ( iom_use('hflx_evap_cea') ) & ! heat flux from evap (cell average) 2044 & CALL iom_put('hflx_evap_cea' , ( frcv(jpr_tevp)%z3(:,:,1) - zevap_ice_total(:,:) * picefr(:,:) ) & 2045 & * zcptn(:,:) * tmask(:,:,1) ) 2046 IF ( iom_use('hflx_prec_cea') ) & ! heat flux from all precip (cell avg) 2047 & CALL iom_put('hflx_prec_cea' , sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) & 2048 & + ( tprecip(:,:) - sprecip(:,:) ) * zcptrain(:,:) ) 2049 IF ( iom_use('hflx_snow_cea') ) & ! heat flux from snow (cell average) 2050 & CALL iom_put('hflx_snow_cea' , sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) ) 2051 IF ( iom_use('hflx_snow_ao_cea') ) & ! heat flux from snow (over ocean) 2052 & CALL iom_put('hflx_snow_ao_cea', sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) * ( 1._wp - zsnw(:,:) ) ) 2053 IF ( iom_use('hflx_snow_ai_cea') ) & ! heat flux from snow (over ice) 2054 & CALL iom_put('hflx_snow_ai_cea', sprecip(:,:) * ( zcptsnw(:,:) - rLfus ) * zsnw(:,:) ) 2051 2055 ! note: hflx for runoff and iceshelf are done in sbcrnf and sbcisf resp. 2052 2056 ! … … 2102 2106 CASE( 'none' ) ! Not available as for now: needs additional coding 2103 2107 ! ! since fields received, here zqsr_tot, are not defined with none option 2104 CALL ctl_stop( 'STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_qsr value in namelist namsbc_cpl')2108 CALL ctl_stop('STOP', 'sbccpl/sbc_cpl_ice_flx: some fields are not defined. Change sn_rcv_qsr value in namelist namsbc_cpl') 2105 2109 END SELECT 2106 2110 IF( ln_dm2dc .AND. ln_cpl ) THEN ! modify qsr to include the diurnal cycle
Note: See TracChangeset
for help on using the changeset viewer.