- Timestamp:
- 2015-11-29T20:28:41+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r5624 r5944 332 332 ! -------------------------------------------------- 333 333 IF( ln_vvl_ztilde ) THEN 334 IF( kt .GT.nit000 ) THEN334 IF( kt > nit000 ) THEN 335 335 DO jk = 1, jpkm1 336 336 hdiv_lf(:,:,jk) = hdiv_lf(:,:,jk) - rdt * frq_rst_hdv(:,:) & … … 426 426 IF( lk_mpp ) CALL mpp_min( z_tmin ) ! min over the global domain 427 427 ! - ML - test: for the moment, stop simulation for too large e3_t variations 428 IF( ( z_tmax .GT. rn_zdef_max ) .OR. ( z_tmin .LT.- rn_zdef_max ) ) THEN428 IF( ( z_tmax > rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN 429 429 IF( lk_mpp ) THEN 430 430 CALL mpp_maxloc( ze3t, tmask, z_tmax, ijk_max(1), ijk_max(2), ijk_max(3) )
Note: See TracChangeset
for help on using the changeset viewer.