- Timestamp:
- 2016-02-24T11:44:07+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r6315 r6348 150 150 CALL iom_put("e3v_0", e3t_0(:,:,:) ) 151 151 ! 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 158 159 159 160 CALL iom_put( "ssh" , sshn ) ! sea surface height … … 247 248 CALL iom_put( "avm" , avmu ) ! T vert. eddy visc. coef. 248 249 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(:,:,:) ) ) ) 249 253 250 254 IF ( iom_use("sstgrad") .OR. iom_use("sstgrad2") ) THEN … … 311 315 CALL iom_put( "eken", rke ) 312 316 ENDIF 313 317 ! 318 CALL iom_put( "hdiv", hdivn ) ! Horizontal divergence 319 ! 314 320 IF( iom_use("u_masstr") .OR. iom_use("u_heattr") .OR. iom_use("u_salttr") ) THEN 315 321 z3d(:,:,jpk) = 0.e0
Note: See TracChangeset
for help on using the changeset viewer.