Changeset 5965 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90
- Timestamp:
- 2015-12-01T16:35:30+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90
r4292 r5965 17 17 USE timing ! Timing 18 18 USE oce ! ocean dynamics and tracers 19 USE sbcisf ! ice shelf 19 20 USE dom_oce ! ocean space and time domain 20 21 USE phycst ! physical constants … … 90 91 ! Calculate the cumulate surface Flux z_cflxemp (m3/s) over all the domain 91 92 ! ----------------------------------------------------------------------- 92 z_cflxemp = SUM ( ( emp(:,:)-rnf(:,:) ) * bdytmask(:,:) * e1t(:,:) * e2t(:,:) ) / rau093 z_cflxemp = SUM ( ( emp(:,:)-rnf(:,:)+rdivisf*fwfisf(:,:) ) * bdytmask(:,:) * e1t(:,:) * e2t(:,:) ) / rau0 93 94 IF( lk_mpp ) CALL mpp_sum( z_cflxemp ) ! sum over the global domain 94 95
Note: See TracChangeset
for help on using the changeset viewer.