Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.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/DYN/dynspg_ts.F90
r9321 r12555 195 195 IF(lwp) WRITE(numout,*) '~~~~~~~~~~ free surface with time splitting' 196 196 IF(lwp) WRITE(numout,*) 197 IF(lflush) CALL flush(numout) 197 198 ! 198 199 IF (neuler==0) ll_init=.TRUE. … … 1088 1089 READ ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 ) 1089 1090 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwp ) 1090 IF(lwm ) WRITE ( numond, namsplit )1091 IF(lwm .AND. nprint > 2) WRITE ( numond, namsplit ) 1091 1092 ! 1092 1093 ! ! Max courant number for ext. grav. waves … … 1161 1162 IF(lwp) WRITE(numout,*) ' Barotropic time step [s] is :', rdtbt 1162 1163 IF(lwp) WRITE(numout,*) ' Maximum Courant number is :', zcmax 1164 IF(lwp .AND. lflush) CALL flush(numout) 1163 1165 ! 1164 1166 IF ((.NOT.ln_bt_av).AND.(.NOT.ln_bt_fw)) THEN
Note: See TracChangeset
for help on using the changeset viewer.