Changeset 6731 for branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2016-06-22T13:43:26+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6700 r6731 1719 1719 zemp_ice(:,:) = frcv(jpr_ievp)%z3(:,:,1) - frcv(jpr_snow)%z3(:,:,1) 1720 1720 #endif 1721 CALL iom_put( 'rain' , frcv(jpr_rain)%z3(:,:,1) ) ! liquid precipitation 1721 CALL iom_put( 'rain' , frcv(jpr_rain)%z3(:,:,1) * tmask(:,:,1) ) ! liquid precipitation 1722 CALL iom_put( 'rain_ao_cea' , frcv(jpr_rain)%z3(:,:,1)* p_frld(:,:) * tmask(:,:,1) ) ! liquid precipitation 1722 1723 IF( iom_use('hflx_rain_cea') ) & 1723 CALL iom_put( 'hflx_rain_cea', frcv(jpr_rain)%z3(:,:,1) * zcptn(:,:) ) ! heat flux from liq. precip.1724 CALL iom_put( 'hflx_rain_cea', frcv(jpr_rain)%z3(:,:,1) * zcptn(:,:) * tmask(:,:,1)) ! heat flux from liq. precip. 1724 1725 IF( iom_use('evap_ao_cea') .OR. iom_use('hflx_evap_cea') ) & 1725 1726 ztmp(:,:) = frcv(jpr_tevp)%z3(:,:,1) - frcv(jpr_ievp)%z3(:,:,1) * zicefr(:,:) 1726 1727 IF( iom_use('evap_ao_cea' ) ) & 1727 CALL iom_put( 'evap_ao_cea' , ztmp ) ! ice-free oce evap (cell average)1728 CALL iom_put( 'evap_ao_cea' , ztmp * tmask(:,:,1) ) ! ice-free oce evap (cell average) 1728 1729 IF( iom_use('hflx_evap_cea') ) & 1729 CALL iom_put( 'hflx_evap_cea', ztmp(:,:) * zcptn(:,:) ) ! heat flux from from evap (cell average)1730 CALL iom_put( 'hflx_evap_cea', ztmp(:,:) * zcptn(:,:) * tmask(:,:,1) ) ! heat flux from from evap (cell average) 1730 1731 CASE( 'oce and ice' ) ! received fields: jpr_sbpr, jpr_semp, jpr_oemp, jpr_ievp 1731 1732 zemp_tot(:,:) = p_frld(:,:) * frcv(jpr_oemp)%z3(:,:,1) + zicefr(:,:) * frcv(jpr_sbpr)%z3(:,:,1) … … 1789 1790 ! runoffs and calving (put in emp_tot) 1790 1791 IF( srcv(jpr_rnf)%laction ) rnf(:,:) = frcv(jpr_rnf)%z3(:,:,1) 1792 IF( iom_use('hflx_rnf_cea') ) & 1793 CALL iom_put( 'hflx_rnf_cea' , rnf(:,:) * zcptn(:,:) ) 1791 1794 IF( srcv(jpr_cal)%laction ) THEN 1792 1795 zemp_tot(:,:) = zemp_tot(:,:) - frcv(jpr_cal)%z3(:,:,1) … … 1806 1809 ENDIF 1807 1810 1808 CALL iom_put( 'snowpre' , sprecip 1811 CALL iom_put( 'snowpre' , sprecip * tmask(:,:,1) ) ! Snow 1809 1812 IF( iom_use('snow_ao_cea') ) & 1810 CALL iom_put( 'snow_ao_cea', sprecip(:,:) * p_frld(:,:) 1813 CALL iom_put( 'snow_ao_cea', sprecip(:,:) * p_frld(:,:) * tmask(:,:,1) ) ! Snow over ice-free ocean (cell average) 1811 1814 IF( iom_use('snow_ai_cea') ) & 1812 CALL iom_put( 'snow_ai_cea', sprecip(:,:) * zicefr(:,:) 1815 CALL iom_put( 'snow_ai_cea', sprecip(:,:) * zicefr(:,:) * tmask(:,:,1) ) ! Snow over sea-ice (cell average) 1813 1816 #endif 1814 1817
Note: See TracChangeset
for help on using the changeset viewer.