- Timestamp:
- 2018-12-14T17:27:24+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcfwb.F90
r10365 r10397 71 71 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ztmsk_neg, ztmsk_pos, z_wgt ! 2D workspaces 72 72 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ztmsk_tospread, zerp_cor ! - - 73 REAL(wp) ,DIMENSION(1) :: z_fwfprv 74 COMPLEX(wp),DIMENSION(1) :: y_fwfnow 73 75 !!---------------------------------------------------------------------- 74 76 ! … … 102 104 ! 103 105 IF( MOD( kt-1, kn_fsbc ) == 0 ) THEN 104 z_fwf = glob_sum( 'sbcfwb', e1e2t(:,:) * ( emp(:,:) - rnf(:,:) + fwfisf(:,:) - snwice_fmass(:,:) ) ) / area ! sum over the global domain 105 zcoef = z_fwf * rcp 106 emp(:,:) = emp(:,:) - z_fwf * tmask(:,:,1) 106 y_fwfnow(1) = local_sum( e1e2t(:,:) * ( emp(:,:) - rnf(:,:) + fwfisf(:,:) - snwice_fmass(:,:) ) ) 107 CALL mpp_delay_sum( 'sbcfwb', 'fwb', y_fwfnow(:), z_fwfprv(:), kt == nitend - nn_fsbc + 1 ) 108 z_fwfprv(1) = z_fwfprv(1) / area 109 zcoef = z_fwfprv(1) * rcp 110 emp(:,:) = emp(:,:) - z_fwfprv(1) * tmask(:,:,1) 107 111 qns(:,:) = qns(:,:) + zcoef * sst_m(:,:) * tmask(:,:,1) ! account for change to the heat budget due to fw correction 108 112 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.