Changeset 11866


Ignore:
Timestamp:
2019-11-06T11:16:45+01:00 (11 months ago)
Author:
acc
Message:

Branch 2019/fix_sn_cfctl_ticket2328. Changes to enable correct functionality for the sn_cfctl%l_oceout option. See #2328

Location:
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/LBC/mppini.F90

    r11640 r11866  
    171171      !!---------------------------------------------------------------------- 
    172172      ! 
    173       llwrtlay = lwp .OR. ln_ctl .OR. sn_cfctl%l_layout 
     173      llwrtlay = lwm .OR. ln_ctl .OR. sn_cfctl%l_layout 
    174174      ! 
    175175      !  0. read namelists parameters 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/nemogcm.F90

    r11536 r11866  
    324324902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 
    325325      ! 
    326       lwp = (narea == 1) .OR. ln_ctl    ! control of all listing output print 
     326      ! finalize the definition of namctl variables 
     327      IF( sn_cfctl%l_config ) THEN 
     328         ! Activate finer control of report outputs 
     329         ! optionally switch off output from selected areas (note this only 
     330         ! applies to output which does not involve global communications) 
     331         IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax  ) .OR. & 
     332           & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) )    & 
     333           &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
     334      ELSE 
     335         ! Use ln_ctl to turn on or off all options. 
     336         CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. ) 
     337      ENDIF 
     338      ! 
     339      lwp = (narea == 1) .OR. ln_ctl .OR. sn_cfctl%l_oceout    ! control of all listing output print 
    327340      ! 
    328341      IF(lwp) THEN                      ! open listing units 
     
    356369      ENDIF 
    357370      ! 
    358       ! finalize the definition of namctl variables 
    359       IF( sn_cfctl%l_config ) THEN 
    360          ! Activate finer control of report outputs 
    361          ! optionally switch off output from selected areas (note this only 
    362          ! applies to output which does not involve global communications) 
    363          IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax  ) .OR. & 
    364            & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) )    & 
    365            &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
    366       ELSE 
    367          ! Use ln_ctl to turn on or off all options. 
    368          CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. ) 
    369       ENDIF 
    370       ! 
    371371      IF(lwm) WRITE( numond, namctl ) 
    372372      ! 
     
    414414                           CALL     dom_init("OPA") ! Domain 
    415415      IF( ln_crs       )   CALL     crs_init        ! coarsened grid: domain initialization  
    416       IF( ln_ctl       )   CALL prt_ctl_init        ! Print control 
     416      IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     417         &                 CALL prt_ctl_init        ! Print control 
    417418       
    418419      CALL diurnal_sst_bulk_init                ! diurnal sst 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF/nemogcm.F90

    r11536 r11866  
    209209902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 
    210210      ! 
    211       lwp = (narea == 1) .OR. ln_ctl    ! control of all listing output print 
    212       ! 
    213       IF(lwp) THEN                            ! open listing units 
    214          ! 
    215          IF( .NOT. lwm )   &           ! alreay opened for narea == 1 
    216             &     CALL ctl_opn(     numout,        'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea ) 
    217          ! 
    218          WRITE(numout,*) 
    219          WRITE(numout,*) '   CNRS - NERC - Met OFFICE - MERCATOR-ocean - CMCC' 
    220          WRITE(numout,*) '                       NEMO team' 
    221          WRITE(numout,*) '                   Off-line TOP Model' 
    222          WRITE(numout,*) '                NEMO version 4.0  (2019) ' 
    223          WRITE(numout,*) 
    224          WRITE(numout,*) "           ._      ._      ._      ._      ._    " 
    225          WRITE(numout,*) "       _.-._)`\_.-._)`\_.-._)`\_.-._)`\_.-._)`\_ " 
    226          WRITE(numout,*) 
    227          WRITE(numout,*) "           o         _,           _,             " 
    228          WRITE(numout,*) "            o      .' (        .-' /             " 
    229          WRITE(numout,*) "           o     _/..._'.    .'   /              " 
    230          WRITE(numout,*) "      (    o .-'`      ` '-./  _.'               " 
    231          WRITE(numout,*) "       )    ( o)           ;= <_         (       " 
    232          WRITE(numout,*) "      (      '-.,\\__ __.-;`\   '.        )      " 
    233          WRITE(numout,*) "       )  )       \) |`\ \)  '.   \      (   (   " 
    234          WRITE(numout,*) "      (  (           \_/       '-._\      )   )  " 
    235          WRITE(numout,*) "       )  )                        `     (   (   " 
    236          WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
    237          WRITE(numout,*) 
    238          ! 
    239          WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
    240          ! 
    241       ENDIF 
    242       ! 
    243211      ! finalize the definition of namctl variables 
    244212      IF( sn_cfctl%l_config ) THEN 
     
    254222      ENDIF 
    255223      ! 
     224      lwp = (narea == 1) .OR. ln_ctl .OR. sn_cfctl%l_oceout    ! control of all listing output print 
     225      ! 
     226      IF(lwp) THEN                            ! open listing units 
     227         ! 
     228         IF( .NOT. lwm )   &           ! alreay opened for narea == 1 
     229            &     CALL ctl_opn(     numout,        'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea ) 
     230         ! 
     231         WRITE(numout,*) 
     232         WRITE(numout,*) '   CNRS - NERC - Met OFFICE - MERCATOR-ocean - CMCC' 
     233         WRITE(numout,*) '                       NEMO team' 
     234         WRITE(numout,*) '                   Off-line TOP Model' 
     235         WRITE(numout,*) '                NEMO version 4.0  (2019) ' 
     236         WRITE(numout,*) 
     237         WRITE(numout,*) "           ._      ._      ._      ._      ._    " 
     238         WRITE(numout,*) "       _.-._)`\_.-._)`\_.-._)`\_.-._)`\_.-._)`\_ " 
     239         WRITE(numout,*) 
     240         WRITE(numout,*) "           o         _,           _,             " 
     241         WRITE(numout,*) "            o      .' (        .-' /             " 
     242         WRITE(numout,*) "           o     _/..._'.    .'   /              " 
     243         WRITE(numout,*) "      (    o .-'`      ` '-./  _.'               " 
     244         WRITE(numout,*) "       )    ( o)           ;= <_         (       " 
     245         WRITE(numout,*) "      (      '-.,\\__ __.-;`\   '.        )      " 
     246         WRITE(numout,*) "       )  )       \) |`\ \)  '.   \      (   (   " 
     247         WRITE(numout,*) "      (  (           \_/       '-._\      )   )  " 
     248         WRITE(numout,*) "       )  )                        `     (   (   " 
     249         WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
     250         WRITE(numout,*) 
     251         ! 
     252         WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
     253         ! 
     254      ENDIF 
     255      ! 
    256256      IF(lwm) WRITE( numond, namctl ) 
    257257      ! 
     
    299299      IF( lk_c1d       )   CALL     c1d_init        ! 1D column configuration 
    300300                           CALL     dom_init("OPA") ! Domain 
    301       IF( ln_ctl       )   CALL prt_ctl_init        ! Print control 
     301      IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     302         &                 CALL prt_ctl_init        ! Print control 
    302303 
    303304                           CALL  istate_init    ! ocean initial state (Dynamics and tracers) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAO/nemogcm.F90

    r11536 r11866  
    152152902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 
    153153      ! 
    154       lwp = (narea == 1) .OR. ln_ctl    ! control of all listing output print 
    155       ! 
    156       IF(lwp) THEN                      ! open listing units 
    157          ! 
    158          IF( .NOT. lwm )   &            ! alreay opened for narea == 1 
    159             &            CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea ) 
    160          ! 
    161          WRITE(numout,*) 
    162          WRITE(numout,*) '   CNRS - NERC - Met OFFICE - MERCATOR-ocean - CMCC' 
    163          WRITE(numout,*) '                       NEMO team' 
    164          WRITE(numout,*) '            Stand Alone Observation operator' 
    165          WRITE(numout,*) '                NEMO version 4.0  (2019) ' 
    166          WRITE(numout,*) 
    167          WRITE(numout,*) "           ._      ._      ._      ._      ._    " 
    168          WRITE(numout,*) "       _.-._)`\_.-._)`\_.-._)`\_.-._)`\_.-._)`\_ " 
    169          WRITE(numout,*) 
    170          WRITE(numout,*) "           o         _,           _,             " 
    171          WRITE(numout,*) "            o      .' (        .-' /             " 
    172          WRITE(numout,*) "           o     _/..._'.    .'   /              " 
    173          WRITE(numout,*) "      (    o .-'`      ` '-./  _.'               " 
    174          WRITE(numout,*) "       )    ( o)           ;= <_         (       " 
    175          WRITE(numout,*) "      (      '-.,\\__ __.-;`\   '.        )      " 
    176          WRITE(numout,*) "       )  )       \) |`\ \)  '.   \      (   (   " 
    177          WRITE(numout,*) "      (  (           \_/       '-._\      )   )  " 
    178          WRITE(numout,*) "       )  ) jgs                     `    (   (   " 
    179          WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
    180          WRITE(numout,*) 
    181          ! 
    182          WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
    183          ! 
    184       ENDIF 
    185       ! 
    186154      ! finalize the definition of namctl variables 
    187155      IF( sn_cfctl%l_config ) THEN 
     
    197165      ENDIF 
    198166      ! 
     167      lwp = (narea == 1) .OR. ln_ctl .OR. sn_cfctl%l_oceout    ! control of all listing output print 
     168      ! 
     169      IF(lwp) THEN                      ! open listing units 
     170         ! 
     171         IF( .NOT. lwm )   &            ! alreay opened for narea == 1 
     172            &            CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea ) 
     173         ! 
     174         WRITE(numout,*) 
     175         WRITE(numout,*) '   CNRS - NERC - Met OFFICE - MERCATOR-ocean - CMCC' 
     176         WRITE(numout,*) '                       NEMO team' 
     177         WRITE(numout,*) '            Stand Alone Observation operator' 
     178         WRITE(numout,*) '                NEMO version 4.0  (2019) ' 
     179         WRITE(numout,*) 
     180         WRITE(numout,*) "           ._      ._      ._      ._      ._    " 
     181         WRITE(numout,*) "       _.-._)`\_.-._)`\_.-._)`\_.-._)`\_.-._)`\_ " 
     182         WRITE(numout,*) 
     183         WRITE(numout,*) "           o         _,           _,             " 
     184         WRITE(numout,*) "            o      .' (        .-' /             " 
     185         WRITE(numout,*) "           o     _/..._'.    .'   /              " 
     186         WRITE(numout,*) "      (    o .-'`      ` '-./  _.'               " 
     187         WRITE(numout,*) "       )    ( o)           ;= <_         (       " 
     188         WRITE(numout,*) "      (      '-.,\\__ __.-;`\   '.        )      " 
     189         WRITE(numout,*) "       )  )       \) |`\ \)  '.   \      (   (   " 
     190         WRITE(numout,*) "      (  (           \_/       '-._\      )   )  " 
     191         WRITE(numout,*) "       )  ) jgs                     `    (   (   " 
     192         WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
     193         WRITE(numout,*) 
     194         ! 
     195         WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
     196         ! 
     197      ENDIF 
     198      ! 
    199199      IF(lwm) WRITE( numond, namctl ) 
    200200      ! 
     
    241241 
    242242 
    243       IF( ln_ctl       )   CALL prt_ctl_init    ! Print control 
     243      IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     244         &                 CALL prt_ctl_init        ! Print control 
    244245 
    245246                           CALL istate_init     ! ocean initial state (Dynamics and tracers) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/nemogcm.F90

    r11536 r11866  
    256256902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 
    257257      ! 
    258       lwp = (narea == 1) .OR. ln_ctl    ! control of all listing output print 
     258      ! finalize the definition of namctl variables 
     259      IF( sn_cfctl%l_config ) THEN 
     260         ! Activate finer control of report outputs 
     261         ! optionally switch off output from selected areas (note this only 
     262         ! applies to output which does not involve global communications) 
     263         IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax  ) .OR. & 
     264           & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) )    & 
     265           &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
     266      ELSE 
     267         ! Use ln_ctl to turn on or off all options. 
     268         CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. ) 
     269      ENDIF 
     270      ! 
     271      lwp = (narea == 1) .OR. ln_ctl .OR. sn_cfctl%l_oceout    ! control of all listing output print 
    259272      ! 
    260273      IF(lwp) THEN                      ! open listing units 
     
    291304         ! 
    292305      ENDIF 
    293      ! 
    294       ! finalize the definition of namctl variables 
    295       IF( sn_cfctl%l_config ) THEN 
    296          ! Activate finer control of report outputs 
    297          ! optionally switch off output from selected areas (note this only 
    298          ! applies to output which does not involve global communications) 
    299          IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax  ) .OR. & 
    300            & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) )    & 
    301            &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
    302       ELSE 
    303          ! Use ln_ctl to turn on or off all options. 
    304          CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. ) 
    305       ENDIF 
    306306      ! 
    307307      IF(lwm) WRITE( numond, namctl ) 
     
    347347                           CALL eos_init        ! Equation of seawater 
    348348                           CALL dom_init('SAS') ! Domain 
    349       IF( ln_ctl      )    CALL prt_ctl_init    ! Print control 
     349      IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     350         &                 CALL prt_ctl_init        ! Print control 
    350351       
    351352                           CALL day_init        ! model calendar (using both namelist and restart infos) 
Note: See TracChangeset for help on using the changeset viewer.