Changeset 1873 for branches/CMIP5_IPSL
- Timestamp:
- 2010-05-17T15:59:47+02:00 (14 years ago)
- Location:
- branches/CMIP5_IPSL/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CMIP5_IPSL/NEMO/OFF_SRC/dtadyn.F90
r1735 r1873 147 147 INTEGER :: iper, iperm1, iswap, izt 148 148 149 REAL(wp) :: zpdtan, zpdtpe, zdemi, zt 150 REAL(wp) :: zweigh 149 REAL(wp) :: zt, zweigh 151 150 152 151 ! 0. Initialization -
branches/CMIP5_IPSL/NEMO/TOP_SRC/trcwri.F90
r1846 r1873 65 65 INTEGER, INTENT( in ) :: kt ! ocean time-step 66 66 INTEGER :: jn 67 CHARACTER (len=20) :: cltra , cltras67 CHARACTER (len=20) :: cltra 68 68 #if defined key_off_tra 69 69 CHARACTER (len=72) :: clhstnam … … 72 72 #if defined key_diaar5 && defined key_pisces 73 73 INTEGER :: ji, jj, jk ! dummy loop indices 74 REAL(wp) :: zoxy ! oxygen concentration75 74 REAL(wp), DIMENSION(jpi,jpj) :: zdic ! DIC content 76 75 REAL(wp), DIMENSION(jpi,jpj) :: zo2min ! O2 minimum concentration … … 126 125 CALL iom_put('POCT' , trn(:,:,:,jppoc) + trn(:,:,:,jpgoc) ) ! total carbon particles 127 126 CALL iom_put('PFET' , trn(:,:,:,jpnfe) + trn(:,:,:,jpdfe) ) ! total biogenic iron 128 ! passive tracers at surface129 DO jn = 1, jptra130 cltras = TRIM(ctrcnm(jn))//'SFC' ! short title for tracer131 CALL iom_put( cltras, trn(:,:,1,jn) )132 END DO133 CALL iom_put('PHYTSFC',trn(:,:,1,jpphy) + trn(:,:,1,jpdia) )134 CALL iom_put('ZOOTSFC',trn(:,:,1,jpzoo) + trn(:,:,1,jpmes) )135 CALL iom_put('CHLTSFC',trn(:,:,1,jpnch) + trn(:,:,1,jpdch) )136 CALL iom_put('POCTSFC',trn(:,:,1,jppoc) + trn(:,:,1,jpgoc) )137 CALL iom_put('PFETSFC',trn(:,:,1,jpnfe) + trn(:,:,1,jpdfe) )138 127 #endif 139 128 !
Note: See TracChangeset
for help on using the changeset viewer.