- Timestamp:
- 2017-04-13T05:46:23+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7832_HPC08_lbclnk_3rd_dim/NEMOGCM/NEMO/OPA_SRC/stpctl.F90
r7897 r7901 10 10 !! 2.0 ! 2009-07 (G. Madec) Add statistic for time-spliting 11 11 !! 3.7 ! 2016-09 (G. Madec) Remove solver 12 !! 4.0 ! 2017-04 (G. Madec) regroup 12 !! 4.0 ! 2017-04 (G. Madec) regroup global communications 13 13 !!---------------------------------------------------------------------- 14 14 … … 44 44 !! - Print it each 50 time steps 45 45 !! - Stop the run IF problem encountered by setting indic=-3 46 !! Problems checked: U max>10 m/s and SSS min < 0 46 !! Problems checked: |U| and |ssh| maximum larger than 10 m/s 47 !! sea surface salinity (SSS) minimum < 0 47 48 !! 48 49 !! ** Actions : 'time.step' file containing the last ocean time-step … … 54 55 INTEGER :: ji, jj, jk ! dummy loop indices 55 56 INTEGER :: ii, ij, ik ! local integers 57 REAL(wp) :: zzt ! local real 56 58 INTEGER , DIMENSION(3) :: ilocu ! 57 59 INTEGER , DIMENSION(2) :: ilocs ! … … 69 71 ENDIF 70 72 ! 71 IF(lwp) WRITE ( numstp, '(1x, i8)' ) kt !== current time step ==! ("time.step" file) 72 IF(lwp) REWIND( numstp ) 73 IF(lwp) THEN !== current time step ==! ("time.step" file) 74 WRITE ( numstp, '(1x, i8)' ) kt 75 REWIND( numstp ) 76 ENDIF 73 77 ! 74 78 ! !== test of extrema ==! … … 80 84 ! 81 85 IF( MOD( kt, nwrite ) == 1 .AND. lwp ) THEN 82 WRITE(numout,*) ' ==>> time-step= ',kt,' abs(U)max: ', zmax(1), ' SSS min:', - zmax(2)86 WRITE(numout,*) ' ==>> time-step= ',kt,' |U| max: ', zmax(1), ' SSS min:', - zmax(2) 83 87 ENDIF 84 88 ! … … 106 110 IF( -zmax(2) < 0._wp ) THEN !* negative salinity 107 111 IF( lk_mpp ) THEN 108 CALL mpp_minloc( tsn(:,:,1,jp_sal),tmask(:,:,1), - zmax(2), ii, ij )112 CALL mpp_minloc( tsn(:,:,1,jp_sal),tmask(:,:,1), zzt, ii, ij ) 109 113 ELSE 110 114 ilocs = MINLOC( tsn(:,:,1,jp_sal), mask = tmask(:,:,1) == 1._wp )
Note: See TracChangeset
for help on using the changeset viewer.