Changeset 12254


Ignore:
Timestamp:
2019-12-16T12:24:46+01:00 (10 months ago)
Author:
acc
Message:

Branch dev_r11943_MERGE_2019. Minor changes to MY_SRC files in STATION_ASF to initialise sn_cfctl correctly and restore decorum

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  
    175175      READ  ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 
    176176902   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 
    177195      ! 
    178196      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  
    118118         &  ISNAN( zmax(1) + zmax(2) + zmax(3) ) ) ) THEN   ! NaN encounter in the tests 
    119119 
    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. 
    121121 
    122122         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.