Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
r6498 r12555 59 59 ! 60 60 61 IF(lwp ) THEN!* open elliptic solver statistics file (only on the printing processors)61 IF(lwp .AND. (ln_ctl .OR. sn_cfctl%l_runstat)) THEN !* open elliptic solver statistics file (only on the printing processors) 62 62 CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 63 63 ENDIF … … 70 70 READ ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 71 71 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 72 IF(lwm ) WRITE ( numond, namsol )72 IF(lwm .AND. nprint > 2) WRITE ( numond, namsol ) 73 73 74 74 IF(lwp) THEN !* Control print … … 86 86 WRITE(numout,*) ' optimal coefficient of sor rn_sor = ', rn_sor 87 87 WRITE(numout,*) 88 IF(lflush) CALL flush(numout) 88 89 ENDIF 89 90 eps = rn_eps … … 100 101 CASE ( 1 ) ! preconditioned conjugate gradient solver 101 102 IF(lwp) WRITE(numout,*) ' a preconditioned conjugate gradient solver is used' 103 IF(lwp .AND. lflush) CALL flush(numout) 102 104 IF( jpr2di /= 0 .AND. jpr2dj /= 0 ) CALL ctl_stop( ' jpr2di and jpr2dj should be equal to zero' ) 103 105 ! … … 105 107 IF(lwp) WRITE(numout,*) ' a successive-over-relaxation solver with extra outer halo is used' 106 108 IF(lwp) WRITE(numout,*) ' with jpr2di =', jpr2di, ' and jpr2dj =', jpr2dj 109 IF(lwp .AND. lflush) CALL flush(numout) 107 110 IF( .NOT. lk_mpp .AND. jpr2di /= 0 .AND. jpr2dj /= 0 ) THEN 108 111 CALL ctl_stop( 'jpr2di and jpr2dj are not equal to zero', &
Note: See TracChangeset
for help on using the changeset viewer.