Ignore:
Timestamp:
2018-10-03T15:52:45+02:00 (2 years ago)
Author:
jchanut
Message:

ztilde update, #2126: Add diagnostics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10057_ENHANCE03_ZTILDE/src/OCE/DIA/diawri.F90

    r10164 r10167  
    5858   USE diurnal_bulk    ! diurnal warm layer 
    5959   USE cool_skin       ! Cool skin 
    60    USE domvvl 
    6160 
    6261   IMPLICIT NONE 
     
    134133      CALL iom_put( "e3w" , e3w_n(:,:,:) ) 
    135134      ! 
    136       IF ( (ln_vvl_ztilde).OR.(ln_vvl_layer) ) THEN 
    137          IF( iom_use("e3t_star") ) THEN    ! Barotropic cell thickness anomaly 
    138             z3d(:,:,:) = (e3t_n(:,:,:)-tilde_e3t_n(:,:,:)-e3t_0(:,:,:))*tmask(:,:,:)  
    139             CALL iom_put( "e3t_star" , z3d(:,:,:) ) 
    140          ENDIF 
    141          IF( iom_use("e3t_tilde") )  THEN  ! Baroclinic cell thickness anomaly 
    142             CALL iom_put( "e3t_tilde" , tilde_e3t_n(:,:,:) ) 
    143          ENDIF 
    144       ENDIF 
    145  
    146135      IF( iom_use("e3tdef") )   & 
    147136         CALL iom_put( "e3tdef"  , ( ( e3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 ) 
Note: See TracChangeset for help on using the changeset viewer.