- Timestamp:
- 2015-12-16T10:25:22+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r5836 r6060 32 32 PUBLIC trc_init ! called by opa 33 33 34 !! * Substitutions35 # include "domzgr_substitute.h90"36 34 !!---------------------------------------------------------------------- 37 35 !! NEMO/TOP 4.0 , NEMO Consortium (2011) … … 119 117 ! ! masked grid volume 120 118 DO jk = 1, jpk 121 cvol(:,:,jk) = e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk)119 cvol(:,:,jk) = e1e2t(:,:) * e3t_n(:,:,jk) * tmask(:,:,jk) 122 120 END DO 123 IF( lk_degrad ) cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:)! degrad option: reduction by facvol121 IF( lk_degrad ) cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:) ! degrad option: reduction by facvol 124 122 ! ! total volume of the ocean 125 123 areatot = glob_sum( cvol(:,:,:) )
Note: See TracChangeset
for help on using the changeset viewer.