Ignore:
Timestamp:
2016-02-24T11:44:07+01:00 (5 years ago)
Author:
cetlod
Message:

bugfix: move the output of scale factor before time swapping and output some variables needs for offline, see ticket #1682

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r6315 r6348  
    150150      CALL iom_put("e3v_0", e3t_0(:,:,:) ) 
    151151      ! 
    152       IF( .NOT.lk_vvl ) THEN 
    153          CALL iom_put( "e3t" , fse3t_n(:,:,:) ) 
    154          CALL iom_put( "e3u" , fse3u_n(:,:,:) ) 
    155          CALL iom_put( "e3v" , fse3v_n(:,:,:) ) 
    156          CALL iom_put( "e3w" , fse3w_n(:,:,:) ) 
    157       ENDIF 
     152      CALL iom_put( "e3t" , fse3t_n(:,:,:) ) 
     153      CALL iom_put( "e3u" , fse3u_n(:,:,:) ) 
     154      CALL iom_put( "e3v" , fse3v_n(:,:,:) ) 
     155      CALL iom_put( "e3w" , fse3w_n(:,:,:) ) 
     156      IF( iom_use("e3tdef") )   & 
     157         CALL iom_put( "e3tdef"  , ( ( fse3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 ) 
     158 
    158159 
    159160      CALL iom_put( "ssh" , sshn )                 ! sea surface height 
     
    247248      CALL iom_put( "avm" , avmu                       )    ! T vert. eddy visc. coef. 
    248249      CALL iom_put( "avs" , fsavs(:,:,:)               )    ! S vert. eddy diff. coef. (useful only with key_zdfddm) 
     250                                                            ! Log of eddy diff coef 
     251      IF( iom_use('logavt') )   CALL iom_put( "logavt", LOG( MAX( 1.e-20_wp, avt  (:,:,:) ) ) ) 
     252      IF( iom_use('logavs') )   CALL iom_put( "logavs", LOG( MAX( 1.e-20_wp, fsavs(:,:,:) ) ) ) 
    249253 
    250254      IF ( iom_use("sstgrad") .OR. iom_use("sstgrad2") ) THEN 
     
    311315         CALL iom_put( "eken", rke )            
    312316      ENDIF 
    313           
     317      ! 
     318      CALL iom_put( "hdiv", hdivn )                  ! Horizontal divergence 
     319      ! 
    314320      IF( iom_use("u_masstr") .OR. iom_use("u_heattr") .OR. iom_use("u_salttr") ) THEN 
    315321         z3d(:,:,jpk) = 0.e0 
Note: See TracChangeset for help on using the changeset viewer.