- 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/PISCES/trcwri_pisces.F90
r5836 r6060 21 21 PUBLIC trc_wri_pisces 22 22 23 !! * Substitutions 24 # include "domzgr_substitute.h90" 25 23 !!---------------------------------------------------------------------- 24 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 25 !! $Id: trcnam.F90 5836 2015-10-26 14:49:40Z cetlod $ 26 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 27 !!---------------------------------------------------------------------- 26 28 CONTAINS 27 29 … … 57 59 zdic(:,:) = 0. 58 60 DO jk = 1, jpkm1 59 zdic(:,:) = zdic(:,:) + trn(:,:,jk,jpdic) * fse3t(:,:,jk) * tmask(:,:,jk) * 12.61 zdic(:,:) = zdic(:,:) + trn(:,:,jk,jpdic) * e3t_n(:,:,jk) * tmask(:,:,jk) * 12. 60 62 ENDDO 61 63 CALL iom_put( 'INTDIC', zdic ) … … 64 66 IF( iom_use( "O2MIN" ) .OR. iom_use ( "ZO2MIN" ) ) THEN ! Oxygen minimum concentration and depth 65 67 zo2min (:,:) = trn(:,:,1,jpoxy) * tmask(:,:,1) 66 zdepo2min(:,:) = fsdepw(:,:,1)* tmask(:,:,1)68 zdepo2min(:,:) = gdepw_n(:,:,1) * tmask(:,:,1) 67 69 DO jk = 2, jpkm1 68 70 DO jj = 1, jpj … … 71 73 IF( trn(ji,jj,jk,jpoxy) < zo2min(ji,jj) ) then 72 74 zo2min (ji,jj) = trn(ji,jj,jk,jpoxy) 73 zdepo2min(ji,jj) = fsdepw(ji,jj,jk)75 zdepo2min(ji,jj) = gdepw_n(ji,jj,jk) 74 76 ENDIF 75 77 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.