Changeset 6808 for branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90
- Timestamp:
- 2016-07-19T10:38:35+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90
r4996 r6808 21 21 PUBLIC trc_wri_pisces 22 22 23 # include "top_substitute.h90" 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 !!---------------------------------------------------------------------- 24 28 CONTAINS 25 29 … … 55 59 zdic(:,:) = 0. 56 60 DO jk = 1, jpkm1 57 zdic(:,:) = zdic(:,:) + trn(:,:,jk,jpdic) * fse3t(:,:,jk) * tmask(:,:,jk) * 12.61 zdic(:,:) = zdic(:,:) + trn(:,:,jk,jpdic) * e3t_n(:,:,jk) * tmask(:,:,jk) * 12. 58 62 ENDDO 59 63 CALL iom_put( 'INTDIC', zdic ) … … 62 66 IF( iom_use( "O2MIN" ) .OR. iom_use ( "ZO2MIN" ) ) THEN ! Oxygen minimum concentration and depth 63 67 zo2min (:,:) = trn(:,:,1,jpoxy) * tmask(:,:,1) 64 zdepo2min(:,:) = fsdepw(:,:,1)* tmask(:,:,1)68 zdepo2min(:,:) = gdepw_n(:,:,1) * tmask(:,:,1) 65 69 DO jk = 2, jpkm1 66 70 DO jj = 1, jpj … … 69 73 IF( trn(ji,jj,jk,jpoxy) < zo2min(ji,jj) ) then 70 74 zo2min (ji,jj) = trn(ji,jj,jk,jpoxy) 71 zdepo2min(ji,jj) = fsdepw(ji,jj,jk)75 zdepo2min(ji,jj) = gdepw_n(ji,jj,jk) 72 76 ENDIF 73 77 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.