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/p2zsed.F90

    r4990 r4996  
    108108      END DO 
    109109 
    110       IF( ln_diatrc ) THEN  
    111          CALL wrk_alloc( jpi, jpj, zw2d ) 
    112          zw2d(:,:) =  ztra(:,:,1) * fse3t(:,:,1) * 86400. 
    113          DO jk = 2, jpkm1 
    114             zw2d(:,:) = zw2d(:,:) + ztra(:,:,jk) * fse3t(:,:,jk) * 86400. 
    115          END DO 
    116          IF( lk_iomput )  THEN 
    117            CALL iom_put( "TDETSED", zw2d ) 
    118          ELSE 
    119            trc2d(:,:,jp_pcs0_2d + 7) = zw2d(:,:) 
     110      IF( lk_iomput )  THEN 
     111         IF( iom_use( "TDETSED" ) ) THEN 
     112            CALL wrk_alloc( jpi, jpj, zw2d ) 
     113            zw2d(:,:) =  ztra(:,:,1) * fse3t(:,:,1) * 86400. 
     114            DO jk = 2, jpkm1 
     115               zw2d(:,:) = zw2d(:,:) + ztra(:,:,jk) * fse3t(:,:,jk) * 86400. 
     116            END DO 
     117            CALL iom_put( "TDETSED", zw2d ) 
     118            CALL wrk_dealloc( jpi, jpj, zw2d ) 
    120119         ENDIF 
    121          CALL wrk_dealloc( jpi, jpj, zw2d ) 
     120      ELSE 
     121         IF( ln_diatrc ) THEN  
     122            CALL wrk_alloc( jpi, jpj, zw2d ) 
     123            zw2d(:,:) =  ztra(:,:,1) * fse3t(:,:,1) * 86400. 
     124            DO jk = 2, jpkm1 
     125               zw2d(:,:) = zw2d(:,:) + ztra(:,:,jk) * fse3t(:,:,jk) * 86400. 
     126            END DO 
     127            trc2d(:,:,jp_pcs0_2d + 7) = zw2d(:,:) 
     128            CALL wrk_dealloc( jpi, jpj, zw2d ) 
     129         ENDIF 
    122130      ENDIF 
    123131      ! 
Note: See TracChangeset for help on using the changeset viewer.