Ignore:
Timestamp:
2014-12-22T12:56:38+01:00 (6 years ago)
Author:
cetlod
Message:

trunk : New diagnostics in PISCES model, see ticket #1424

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zexp.F90

    r4990 r4996  
    127127  
    128128      ! Oa & Ek: diagnostics depending on jpdia2d !          left as example 
    129       IF( ln_diatrc ) THEN 
    130          IF( lk_iomput ) THEN   ;   CALL iom_put( "SEDPOC" , sedpocn ) 
    131          ELSE                   ;   trc2d(:,:,jp_pcs0_2d + 18) = sedpocn(:,:) 
    132          ENDIF 
     129      IF( lk_iomput ) THEN   
     130         CALL iom_put( "SEDPOC" , sedpocn ) 
     131      ELSE 
     132         IF( ln_diatrc )           trc2d(:,:,jp_pcs0_2d + 18) = sedpocn(:,:) 
    133133      ENDIF 
    134134 
Note: See TracChangeset for help on using the changeset viewer.