- Timestamp:
- 2014-07-03T18:47:30+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r4666 r4704 259 259 IF(lwp) WRITE(numout,*) "dia_hsb: heat salt volume budgets activated" 260 260 IF(lwp) WRITE(numout,*) '~~~~~~~' 261 surf(:,:) = e1t(:,:) * e2t(:,:) * tmask (:,:,1) * tmask_i(:,:) ! masked surface grid cell area261 surf(:,:) = e1t(:,:) * e2t(:,:) * tmask_i(:,:) ! masked surface grid cell area 262 262 surf_tot = glob_sum( surf(:,:) ) ! total ocean surface area 263 263
Note: See TracChangeset
for help on using the changeset viewer.