Changeset 12254
- Timestamp:
- 2019-12-16T12:24:46+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/tests/STATION_ASF/MY_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/STATION_ASF/MY_SRC/nemogcm.F90
r12249 r12254 175 175 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 176 176 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 177 ! 178 ! finalize the definition of namctl variables 179 IF( sn_cfctl%l_allon ) THEN 180 ! Turn on all options. 181 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 182 ! Ensure all processors are active 183 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 184 ELSEIF( sn_cfctl%l_config ) THEN 185 ! Activate finer control of report outputs 186 ! optionally switch off output from selected areas (note this only 187 ! applies to output which does not involve global communications) 188 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 189 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 190 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 191 ELSE 192 ! turn off all options. 193 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 194 ENDIF 177 195 ! 178 196 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/STATION_ASF/MY_SRC/stpctl.F90
r12249 r12254 118 118 & ISNAN( zmax(1) + zmax(2) + zmax(3) ) ) ) THEN ! NaN encounter in the tests 119 119 120 !! We are 1D so no need to find a spatial location of the fuck-up!120 !! We are 1D so no need to find a spatial location of the rogue point. 121 121 122 122 WRITE(ctmp1,*) ' stp_ctl: |tau_mod| > 5 N/m2 or |qns| > 2000 W/m2 or |emp| > 1.E-3 or NaN encounter in the tests'
Note: See TracChangeset
for help on using the changeset viewer.