Changeset 1873


Ignore:
Timestamp:
2010-05-17T15:59:47+02:00 (10 years ago)
Author:
cetlod
Message:

Update PISCES diagnostics for AR5

Location:
branches/CMIP5_IPSL/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/CMIP5_IPSL/NEMO/OFF_SRC/dtadyn.F90

    r1735 r1873  
    147147      INTEGER ::   iper, iperm1, iswap, izt    
    148148 
    149       REAL(wp) :: zpdtan, zpdtpe, zdemi, zt 
    150       REAL(wp) :: zweigh 
     149      REAL(wp) :: zt, zweigh 
    151150 
    152151      ! 0. Initialization 
  • branches/CMIP5_IPSL/NEMO/TOP_SRC/trcwri.F90

    r1846 r1873  
    6565      INTEGER, INTENT( in ) :: kt       ! ocean time-step 
    6666      INTEGER               :: jn 
    67       CHARACTER (len=20)    :: cltra, cltras 
     67      CHARACTER (len=20)    :: cltra 
    6868#if defined key_off_tra 
    6969      CHARACTER (len=72) :: clhstnam 
     
    7272#if defined key_diaar5  && defined key_pisces 
    7373      INTEGER                      :: ji, jj, jk  ! dummy loop indices 
    74       REAL(wp)                     :: zoxy        ! oxygen concentration  
    7574      REAL(wp), DIMENSION(jpi,jpj) :: zdic        ! DIC content  
    7675      REAL(wp), DIMENSION(jpi,jpj) :: zo2min      ! O2 minimum concentration  
     
    126125      CALL iom_put('POCT'  , trn(:,:,:,jppoc) + trn(:,:,:,jpgoc) )     ! total carbon particles 
    127126      CALL iom_put('PFET'  , trn(:,:,:,jpnfe) + trn(:,:,:,jpdfe) )     ! total biogenic iron 
    128       ! passive tracers at surface 
    129       DO jn = 1, jptra 
    130          cltras = TRIM(ctrcnm(jn))//'SFC'                   ! short title for tracer 
    131          CALL iom_put( cltras, trn(:,:,1,jn) ) 
    132       END DO 
    133       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) ) 
    138127#endif 
    139128      ! 
Note: See TracChangeset for help on using the changeset viewer.