- Timestamp:
- 2020-03-13T18:06:44+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/stpctl.F90
r12555 r12556 100 100 IF( lk_mpp ) CALL mpp_max( zumax ) ! max over the global domain 101 101 ! 102 IF( ll_colruns ) THEN102 IF( ll_colruns .AND. lwp ) THEN 103 103 WRITE(numout,*) ' ==>> time-step= ',kt,' abs(U) max: ', zumax 104 104 IF(lflush) CALL flush(numout) … … 250 250 ENDIF 251 251 ! 252 IF( ll_ colruns ) THEN252 IF( ll_wrtruns ) THEN 253 253 zssh2 = SUM( sshn(:,:) * sshn(:,:) * tmask_i(:,:) ) 254 254 IF( lk_mpp ) CALL mpp_sum( zssh2 ) ! sum over the global domain
Note: See TracChangeset
for help on using the changeset viewer.