New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11872 – NEMO

Changeset 11872


Ignore:
Timestamp:
2019-11-07T17:55:13+01:00 (5 years ago)
Author:
acc
Message:

Branch 2019/fix_sn_cfctl_ticket2328. See #2328. Replacement of ln_ctl and activation of full functionality with
sn_cfctl structure. These changes rename structure components l_mppout and l_mpptop as l_prtctl and l_prttrc
and introduce l_glochk to activate former ln_ctl code in stpctl.F90 to perform global location of min and max
checks. Also added is l_allon which can be used to activate all output (much like the former ln_ctl). If l_allon
is .false. then l_config decides whether or not the suboptions are used.

   sn_cfctl%l_glochk = .FALSE.    ! Range sanity checks are local (F) or global (T). Set T for debugging only
   sn_cfctl%l_allon  = .FALSE.    ! IF T activate all options. If F deactivate all unless l_config is T
   sn_cfctl%l_config = .TRUE.     ! IF .true. then control which reports are written with the remaining options

Note, these changes pass SETTE tests but all references to ln_ctl need to be removed from the sette scripts.

Location:
NEMO/branches/2019/fix_sn_cfctl_ticket2328
Files:
91 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/cfgs/SHARED/namelist_ref

    r11869 r11872  
    13221322&namctl        !   Control prints                                       (default: OFF) 
    13231323!----------------------------------------------------------------------- 
    1324    ln_ctl = .FALSE.                 ! Toggle all report printing on/off (T/F); Ignored if sn_cfctl%l_config is T 
     1324   sn_cfctl%l_glochk = .FALSE.    ! Range sanity checks are local (F) or global (T). Set T for debugging only 
     1325   sn_cfctl%l_allon  = .FALSE.    ! IF T activate all options. If F deactivate all unless l_config is T 
    13251326     sn_cfctl%l_config = .TRUE.     ! IF .true. then control which reports are written with the following 
    13261327       sn_cfctl%l_runstat = .FALSE. ! switches and which areas produce reports with the proc integer settings. 
     
    13281329       sn_cfctl%l_oceout  = .FALSE. ! that  all areas report. 
    13291330       sn_cfctl%l_layout  = .FALSE. ! 
    1330        sn_cfctl%l_mppout  = .FALSE. ! 
    1331        sn_cfctl%l_mpptop  = .FALSE. ! 
     1331       sn_cfctl%l_prtctl  = .FALSE. ! 
     1332       sn_cfctl%l_prttrc  = .FALSE. ! 
    13321333       sn_cfctl%l_oasout  = .FALSE. ! 
    13331334       sn_cfctl%procmin   = 0       ! Minimum area number for reporting [default:0] 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icecor.F90

    r11869 r11872  
    165165      ! 
    166166      ! controls 
    167       IF( ln_ctl .OR. sn_cfctl%l_mppout ) & 
     167      IF( sn_cfctl%l_prtctl ) & 
    168168         &                 CALL ice_prt3D   ('icecor')                                                             ! prints 
    169169      IF( ln_icectl .AND. kn == 2 ) & 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icectl.F90

    r11612 r11872  
    695695      !!                  ***  ROUTINE ice_prt3D *** 
    696696      !! 
    697       !! ** Purpose : CTL prints of ice arrays in case ln_ctl is activated  
     697      !! ** Purpose : CTL prints of ice arrays in case sn_cfctl%prtctl is activated  
    698698      !! 
    699699      !!------------------------------------------------------------------- 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icedyn_rdgrft.F90

    r11869 r11872  
    268268 
    269269      ! controls 
    270       IF( ln_ctl .OR. sn_cfctl%l_mppout )   CALL ice_prt3D   ('icedyn_rdgrft')                                            ! prints 
     270      IF( sn_cfctl%l_prtctl )   CALL ice_prt3D   ('icedyn_rdgrft')                                                        ! prints 
    271271      IF( ln_icectl    )   CALL ice_prt     (kt, iiceprt, jiceprt,-1, ' - ice dyn rdgrft - ')                             ! prints 
    272272      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icedyn_rdgrft', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icedyn_rhg.F90

    r11869 r11872  
    8888      ! 
    8989      ! controls 
    90       IF( ln_ctl .OR. sn_cfctl%l_mppout ) & 
     90      IF( sn_cfctl%l_prtctl ) & 
    9191         &                 CALL ice_prt3D   ('icedyn_rhg')                                                             ! prints 
    9292      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icedyn_rhg_evp.F90

    r11869 r11872  
    345345         l_full_nf_update = jter == nn_nevp   ! false: disable full North fold update (performances) for iter = 1 to nn_nevp-1 
    346346         ! 
    347 !!$         IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN   ! Convergence test 
     347!!$         IF(sn_cfctl%l_prtctl) THEN   ! Convergence test 
    348348!!$            DO jj = 1, jpjm1 
    349349!!$               zu_ice(:,jj) = u_ice(:,jj) ! velocity at previous time step 
     
    667667         ENDIF 
    668668 
    669 !!$         IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN   ! Convergence test 
     669!!$         IF(sn_cfctl%l_prtctl) THEN   ! Convergence test 
    670670!!$            DO jj = 2 , jpjm1 
    671671!!$               zresr(:,jj) = MAX( ABS( u_ice(:,jj) - zu_ice(:,jj) ), ABS( v_ice(:,jj) - zv_ice(:,jj) ) ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icethd.F90

    r11869 r11872  
    252252      ! controls 
    253253      IF( ln_icectl )   CALL ice_prt    (kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ') ! prints 
    254       IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     254      IF( sn_cfctl%l_prtctl )   & 
    255255        &               CALL ice_prt3D  ('icethd')                                        ! prints 
    256256      IF( ln_timing )   CALL timing_stop('icethd')                                        ! timing 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/iceupdate.F90

    r11869 r11872  
    286286#endif 
    287287      IF( ln_icectl                      )   CALL ice_prt       (kt, iiceprt, jiceprt, 3, 'Final state ice_update') ! prints 
    288       IF( ln_ctl .OR. sn_cfctl%l_mppout  )   CALL ice_prt3D     ('iceupdate')                                       ! prints 
     288      IF( sn_cfctl%l_prtctl              )   CALL ice_prt3D     ('iceupdate')                                       ! prints 
    289289      IF( ln_timing                      )   CALL timing_stop   ('ice_update')                                      ! timing 
    290290      ! 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/C1D/dyncor_c1d.F90

    r11869 r11872  
    9595       
    9696      ! 
    97       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' cor  - Ua: ', mask1=umask,  & 
    98          &                       tab3d_2=va, clinfo2=' Va: '       , mask2=vmask ) 
     97      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' cor  - Ua: ', mask1=umask,  & 
     98         &                                  tab3d_2=va, clinfo2=' Va: '       , mask2=vmask ) 
    9999      ! 
    100100   END SUBROUTINE dyn_cor_c1d 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/C1D/dyndmp.F90

    r11869 r11872  
    219219      ! 
    220220      !                           ! Control print 
    221       IF( ln_ctl .OR. sn_cfctl%l_mppout  )   CALL prt_ctl( tab3d_1=ua(:,:,:), clinfo1=' dmp  - Ua: ', mask1=umask,   & 
    222          &                                                  tab3d_2=va(:,:,:), clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     221      IF( sn_cfctl%l_prtctl )   CALL prt_ctl( tab3d_1=ua(:,:,:), clinfo1=' dmp  - Ua: ', mask1=umask,   & 
     222         &                                    tab3d_2=va(:,:,:), clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    223223      ! 
    224224      ! 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DOM/daymod.F90

    r11869 r11872  
    277277      IF( nsec_week > 7*nsecd )   nsec_week = ndt05     ! New week 
    278278 
    279       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     279      IF(sn_cfctl%l_prtctl) THEN 
    280280         WRITE(charout,FMT="('kt =', I4,'  d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear 
    281281         CALL prt_ctl_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynadv_cen2.F90

    r11869 r11872  
    139139      ENDIF 
    140140      !                                   ! Control print 
    141       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' cen2 adv - Ua: ', mask1=umask,   & 
    142          &                                              tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     141      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' cen2 adv - Ua: ', mask1=umask,   & 
     142         &                                  tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    143143      ! 
    144144   END SUBROUTINE dyn_adv_cen2 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynadv_ubs.F90

    r11869 r11872  
    232232      ENDIF 
    233233      !                                         ! Control print 
    234       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ubs2 adv - Ua: ', mask1=umask,   & 
    235          &                                              tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     234      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ubs2 adv - Ua: ', mask1=umask,   & 
     235         &                                  tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    236236      ! 
    237237   END SUBROUTINE dyn_adv_ubs 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynhpg.F90

    r11869 r11872  
    119119      ENDIF 
    120120      ! 
    121       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' hpg  - Ua: ', mask1=umask,   & 
    122          &                                              tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     121      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' hpg  - Ua: ', mask1=umask,   & 
     122         &                                  tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    123123      ! 
    124124      IF( ln_timing )   CALL timing_stop('dyn_hpg') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynkeg.F90

    r11869 r11872  
    147147      ENDIF 
    148148      ! 
    149       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' keg  - Ua: ', mask1=umask,   & 
    150          &                                              tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     149      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' keg  - Ua: ', mask1=umask,   & 
     150         &                                  tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    151151      ! 
    152152      IF( ln_timing )   CALL timing_stop('dyn_keg') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynldf.F90

    r11869 r11872  
    7777      ENDIF 
    7878      !                                          ! print sum trends (used for debugging) 
    79       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf  - Ua: ', mask1=umask,   & 
    80          &                                              tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     79      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf  - Ua: ', mask1=umask,   & 
     80         &                                  tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    8181      ! 
    8282      IF( ln_timing )   CALL timing_stop('dyn_ldf') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynldf_iso.F90

    r11869 r11872  
    286286 
    287287      ! print sum trends (used for debugging) 
    288       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ldfh - Ua: ', mask1=umask, & 
    289          &                                              tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     288      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ldfh - Ua: ', mask1=umask, & 
     289         &                                  tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    290290 
    291291 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynnxt.F90

    r11869 r11872  
    368368      ENDIF 
    369369      ! 
    370       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   & 
    371          &                                              tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask ) 
     370      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   & 
     371         &                                  tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask ) 
    372372      !  
    373373      IF( ln_dynspg_ts )   DEALLOCATE( zue, zve ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynspg.F90

    r11869 r11872  
    172172      ENDIF 
    173173      !                                      ! print mean trends (used for debugging) 
    174       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' spg  - Ua: ', mask1=umask, & 
    175          &                                              tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     174      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' spg  - Ua: ', mask1=umask, & 
     175         &                                  tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    176176      ! 
    177177      IF( ln_timing )   CALL timing_stop('dyn_spg') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynvor.F90

    r11869 r11872  
    179179      ! 
    180180      !                       ! print sum trends (used for debugging) 
    181       IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' vor  - Ua: ', mask1=umask,               & 
    182          &                                            tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     181      IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=ua, clinfo1=' vor  - Ua: ', mask1=umask,               & 
     182         &                                tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    183183      ! 
    184184      IF( ln_timing )   CALL timing_stop('dyn_vor') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynzad.F90

    r11869 r11872  
    114114      ENDIF 
    115115      !                             ! Control print 
    116       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' zad  - Ua: ', mask1=umask,   & 
    117          &                                              tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     116      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' zad  - Ua: ', mask1=umask,   & 
     117         &                                  tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    118118      ! 
    119119      IF( ln_timing )   CALL timing_stop('dyn_zad') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynzdf.F90

    r11869 r11872  
    492492      ENDIF 
    493493      !                                          ! print mean trends (used for debugging) 
    494       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf  - Ua: ', mask1=umask,               & 
    495          &                                              tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     494      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf  - Ua: ', mask1=umask,               & 
     495         &                                  tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    496496         ! 
    497497      IF( ln_timing )   CALL timing_stop('dyn_zdf') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/sshwzv.F90

    r11869 r11872  
    121121      !                                           !------------------------------! 
    122122      ! 
    123       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab2d_1=ssha, clinfo1=' ssha  - : ', mask1=tmask ) 
     123      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=ssha, clinfo1=' ssha  - : ', mask1=tmask ) 
    124124      ! 
    125125      IF( ln_timing )   CALL timing_stop('ssh_nxt') 
     
    262262      ENDIF 
    263263      ! 
    264       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab2d_1=sshb, clinfo1=' sshb  - : ', mask1=tmask ) 
     264      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=sshb, clinfo1=' sshb  - : ', mask1=tmask ) 
    265265      ! 
    266266      IF( ln_timing )   CALL timing_stop('ssh_swp') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/IOM/in_out_manager.F90

    r11869 r11872  
    9696   !!                    output monitoring 
    9797   !!---------------------------------------------------------------------- 
    98    LOGICAL ::   ln_ctl           !: run control for debugging 
    99    TYPE :: sn_ctl                !: optional use structure for finer control over output selection 
     98   TYPE :: sn_ctl                !: structure for control over output selection 
     99      LOGICAL :: l_glochk  = .FALSE.  !: range sanity checks are local (F) or global (T) 
     100                                      !  Use global setting for debugging only; 
     101                                      !  local breaches will still be reported 
     102                                      !  and stop the code in most cases. 
     103      LOGICAL :: l_allon   = .FALSE.  !: overall control; activate all following output options 
    100104      LOGICAL :: l_config  = .FALSE.  !: activate/deactivate finer control 
    101                                       !  Note if l_config is True then ln_ctl is ignored. 
    102                                       !  Otherwise setting ln_ctl True is equivalent to setting 
    103                                       !  all the following logicals in this structure True 
     105                                      !  Note if l_config is True then sn_cfctl%l_allon is ignored. 
     106                                      !  Otherwise setting sn_cfctl%l_allon T/F is equivalent to  
     107                                      !  setting all the following logicals in this structure T/F 
     108                                      !  and disabling subsetting of processors 
    104109      LOGICAL :: l_runstat = .FALSE.  !: Produce/do not produce run.stat file (T/F) 
    105110      LOGICAL :: l_trcstat = .FALSE.  !: Produce/do not produce tracer.stat file (T/F) 
    106111      LOGICAL :: l_oceout  = .FALSE.  !: Produce all ocean.outputs    (T) or just one (F) 
    107112      LOGICAL :: l_layout  = .FALSE.  !: Produce all layout.dat files (T) or just one (F) 
    108       LOGICAL :: l_mppout  = .FALSE.  !: Produce/do not produce mpp.output_XXXX files (T/F) 
    109       LOGICAL :: l_mpptop  = .FALSE.  !: Produce/do not produce mpp.top.output_XXXX files (T/F) 
     113      LOGICAL :: l_prtctl  = .FALSE.  !: Produce/do not produce mpp.output_XXXX files (T/F) 
     114      LOGICAL :: l_prttrc  = .FALSE.  !: Produce/do not produce mpp.top.output_XXXX files (T/F) 
    110115      LOGICAL :: l_oasout  = .FALSE.  !: Produce/do not write oasis setup info to ocean.output (T/F) 
    111116                                      !  Optional subsetting of processor report files 
     
    166171   CHARACTER(lc) ::   ctmp10                !: temporary character 10 
    167172   LOGICAL       ::   lwm      = .FALSE.    !: boolean : true on the 1st processor only (always) 
    168    LOGICAL       ::   lwp      = .FALSE.    !: boolean : true on the 1st processor only .OR. ln_ctl 
     173   LOGICAL       ::   lwp      = .FALSE.    !: boolean : true on the 1st processor only .OR. sn_cfctl%l_oceout=T 
    169174   LOGICAL       ::   lsp_area = .TRUE.     !: to make a control print over a specific area 
    170175   CHARACTER(lc) ::   cxios_context         !: context name used in xios 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/IOM/prtctl.F90

    r10068 r11872  
    5050      !!                debugging a new parametrization in mono or mpp.  
    5151      !! 
    52       !! ** Method  : 2 possibilities exist when setting the ln_ctl parameter to 
     52      !! ** Method  : 2 possibilities exist when setting the sn_cfctl%prtctl parameter to 
    5353      !!                .true. in the ocean namelist: 
    5454      !!              - to debug a MPI run .vs. a mono-processor one;  
     
    6464      !!                name must be explicitly typed if used. For instance if the 3D 
    6565      !!                array tn(:,:,:) must be passed through the prt_ctl subroutine,  
    66       !!                it must looks like: CALL prt_ctl(tab3d_1=tn). 
     66      !!                it must look like: CALL prt_ctl(tab3d_1=tn). 
    6767      !! 
    6868      !!                    tab2d_1 : first 2D array 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/LBC/mppini.F90

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

    r11869 r11872  
    365365      CALL lbc_lnk_multi( 'ldfslp', uslp , 'U', -1. , vslp , 'V', -1. , wslpi, 'W', -1., wslpj, 'W', -1. ) 
    366366 
    367       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     367      IF(sn_cfctl%l_prtctl) THEN 
    368368         CALL prt_ctl(tab3d_1=uslp , clinfo1=' slp  - u : ', tab3d_2=vslp,  clinfo2=' v : ', kdim=jpk) 
    369369         CALL prt_ctl(tab3d_1=wslpi, clinfo1=' slp  - wi: ', tab3d_2=wslpj, clinfo2=' wj: ', kdim=jpk) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/SBC/sbcblk.F90

    r11869 r11872  
    507507 
    508508 
    509       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     509      IF(sn_cfctl%l_prtctl) THEN 
    510510         CALL prt_ctl( tab2d_1=zqla  , clinfo1=' blk_oce: zqla   : ', tab2d_2=Ce_atm , clinfo2=' Ce_oce  : ' ) 
    511511         CALL prt_ctl( tab2d_1=zqsb  , clinfo1=' blk_oce: zqsb   : ', tab2d_2=Ch_atm , clinfo2=' Ch_oce  : ' ) 
     
    553553      ENDIF 
    554554      ! 
    555       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     555      IF(sn_cfctl%l_prtctl) THEN 
    556556         CALL prt_ctl(tab2d_1=zqsb , clinfo1=' blk_oce: zqsb   : ', tab2d_2=zqlw , clinfo2=' zqlw  : ') 
    557557         CALL prt_ctl(tab2d_1=zqla , clinfo1=' blk_oce: zqla   : ', tab2d_2=qsr  , clinfo2=' qsr   : ') 
     
    764764      ! 
    765765      ! 
    766       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     766      IF(sn_cfctl%l_prtctl) THEN 
    767767         CALL prt_ctl(tab2d_1=utau_ice  , clinfo1=' blk_ice: utau_ice : ', tab2d_2=vtau_ice  , clinfo2=' vtau_ice : ') 
    768768         CALL prt_ctl(tab2d_1=wndm_ice  , clinfo1=' blk_ice: wndm_ice : ') 
     
    914914      END WHERE 
    915915      ! 
    916       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     916      IF(sn_cfctl%l_prtctl) THEN 
    917917         CALL prt_ctl(tab3d_1=qla_ice , clinfo1=' blk_ice: qla_ice  : ', tab3d_2=z_qsb   , clinfo2=' z_qsb    : ', kdim=jpl) 
    918918         CALL prt_ctl(tab3d_1=z_qlw   , clinfo1=' blk_ice: z_qlw    : ', tab3d_2=dqla_ice, clinfo2=' dqla_ice : ', kdim=jpl) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/SBC/sbcmod.F90

    r11869 r11872  
    557557      CALL iom_put( "vtau", vtau )   ! j-wind stress 
    558558      ! 
    559       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN         ! print mean trends (used for debugging) 
     559      IF(sn_cfctl%l_prtctl) THEN     ! print mean trends (used for debugging) 
    560560         CALL prt_ctl(tab2d_1=fr_i              , clinfo1=' fr_i    - : ', mask1=tmask ) 
    561561         CALL prt_ctl(tab2d_1=(emp-rnf + fwfisf), clinfo1=' emp-rnf - : ', mask1=tmask ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/eosbn2.F90

    r11869 r11872  
    297297      END SELECT 
    298298      ! 
    299       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu  : ', kdim=jpk ) 
     299      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu  : ', kdim=jpk ) 
    300300      ! 
    301301      IF( ln_timing )   CALL timing_stop('eos-insitu') 
     
    464464      END SELECT 
    465465      ! 
    466       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', kdim=jpk ) 
     466      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', kdim=jpk ) 
    467467      ! 
    468468      IF( ln_timing )   CALL timing_stop('eos-pot') 
     
    559559      END SELECT 
    560560      ! 
    561       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab2d_1=prd, clinfo1=' eos2d: ' ) 
     561      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=prd, clinfo1=' eos2d: ' ) 
    562562      ! 
    563563      IF( ln_timing )   CALL timing_stop('eos2d') 
     
    671671      END SELECT 
    672672      ! 
    673       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=pab(:,:,:,jp_tem), clinfo1=' rab_3d_t: ', & 
    674          &                                              tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', kdim=jpk ) 
     673      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=pab(:,:,:,jp_tem), clinfo1=' rab_3d_t: ', & 
     674         &                                  tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', kdim=jpk ) 
    675675      ! 
    676676      IF( ln_timing )   CALL timing_stop('rab_3d') 
     
    785785      END SELECT 
    786786      ! 
    787       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab2d_1=pab(:,:,jp_tem), clinfo1=' rab_2d_t: ', & 
    788          &                                              tab2d_2=pab(:,:,jp_sal), clinfo2=' rab_2d_s : ' ) 
     787      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=pab(:,:,jp_tem), clinfo1=' rab_2d_t: ', & 
     788         &                                  tab2d_2=pab(:,:,jp_sal), clinfo2=' rab_2d_s : ' ) 
    789789      ! 
    790790      IF( ln_timing )   CALL timing_stop('rab_2d') 
     
    929929      END DO 
    930930      ! 
    931       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2  : ', kdim=jpk ) 
     931      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2  : ', kdim=jpk ) 
    932932      ! 
    933933      IF( ln_timing )   CALL timing_stop('bn2') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/traadv.F90

    r11869 r11872  
    168168      ENDIF 
    169169      !                                              ! print mean trends (used for debugging) 
    170       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' adv  - Ta: ', mask1=tmask,               & 
    171          &                                              tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     170      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' adv  - Ta: ', mask1=tmask,               & 
     171         &                                  tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    172172      ! 
    173173      IF( ln_timing )   CALL timing_stop( 'tra_adv' ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trabbc.F90

    r11869 r11872  
    100100      ENDIF 
    101101      ! 
    102       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbc  - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 
     102      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbc  - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 
    103103      ! 
    104104      IF( ln_timing )   CALL timing_stop('tra_bbc') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trabbl.F90

    r11869 r11872  
    119119         ! 
    120120         CALL tra_bbl_dif( tsb, tsa, jpts ) 
    121          IF( ln_ctl .OR. sn_cfctl%l_mppout )  & 
     121         IF( sn_cfctl%l_prtctl )  & 
    122122         CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbl_ldf  - Ta: ', mask1=tmask, & 
    123123            &          tab3d_2=tsa(:,:,:,jp_sal), clinfo2=           ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     
    132132         ! 
    133133         CALL tra_bbl_adv( tsb, tsa, jpts ) 
    134          IF(ln_ctl .OR. sn_cfctl%l_mppout)   & 
     134         IF(sn_cfctl%l_prtctl)   & 
    135135         CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbl_adv  - Ta: ', mask1=tmask,   & 
    136136            &          tab3d_2=tsa(:,:,:,jp_sal), clinfo2=           ' Sa: ', mask2=tmask, clinfo3='tra' ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/tradmp.F90

    r11869 r11872  
    156156      ENDIF 
    157157      !                           ! Control print 
    158       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' dmp  - Ta: ', mask1=tmask,   & 
    159          &                                              tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     158      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' dmp  - Ta: ', mask1=tmask,   & 
     159         &                                  tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    160160      ! 
    161161      IF( ln_timing )   CALL timing_stop('tra_dmp') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/traldf.F90

    r11869 r11872  
    8585      ENDIF 
    8686      !                                        !* print mean trends (used for debugging) 
    87       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' ldf  - Ta: ', mask1=tmask,               & 
    88          &                                              tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     87      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' ldf  - Ta: ', mask1=tmask,               & 
     88         &                                  tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    8989      ! 
    9090      IF( ln_timing )   CALL timing_stop('tra_ldf') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/tranxt.F90

    r11869 r11872  
    181181      ! 
    182182      !                        ! control print 
    183       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' nxt  - Tn: ', mask1=tmask,   & 
    184          &                                              tab3d_2=tsn(:,:,:,jp_sal), clinfo2=       ' Sn: ', mask2=tmask ) 
     183      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' nxt  - Tn: ', mask1=tmask,   & 
     184         &                                  tab3d_2=tsn(:,:,:,jp_sal), clinfo2=       ' Sn: ', mask2=tmask ) 
    185185      ! 
    186186      IF( ln_timing )   CALL timing_stop('tra_nxt') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/traqsr.F90

    r11869 r11872  
    300300      ENDIF 
    301301      !                       ! print mean trends (used for debugging) 
    302       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' qsr  - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 
     302      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' qsr  - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 
    303303      ! 
    304304      IF( ln_timing )   CALL timing_stop('tra_qsr') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trasbc.F90

    r11869 r11872  
    266266      ENDIF 
    267267      ! 
    268       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' sbc  - Ta: ', mask1=tmask,   & 
    269          &                                              tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     268      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' sbc  - Ta: ', mask1=tmask,   & 
     269         &                                  tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    270270      ! 
    271271      IF( ln_timing )   CALL timing_stop('tra_sbc') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trazdf.F90

    r11869 r11872  
    9999      ENDIF 
    100100      !                                          ! print mean trends (used for debugging) 
    101       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' zdf  - Ta: ', mask1=tmask,               & 
    102          &                                              tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
     101      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' zdf  - Ta: ', mask1=tmask,               & 
     102         &                                  tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
    103103      ! 
    104104      IF( ln_timing )   CALL timing_stop('tra_zdf') 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRD/trdmxl.F90

    r11869 r11872  
    371371         hmxlbn(:,:) = hmxl(:,:) 
    372372 
    373          IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN 
     373         IF( sn_cfctl%l_prtctl ) THEN 
    374374            WRITE(numout,*) '             we reach kt == nit000 + 1 = ', nit000+1 
    375375            CALL prt_ctl(tab2d_1=tmlbb   , clinfo1=' tmlbb   -   : ', mask1=tmask) 
     
    380380      END IF 
    381381 
    382       IF( ( ln_rstart ) .AND. ( kt == nit000 ) .AND. ( ln_ctl .OR.  sn_cfctl%l_mppout ) ) THEN 
     382      IF( ( ln_rstart ) .AND. ( kt == nit000 ) .AND. sn_cfctl%l_prtctl ) THEN 
    383383         IF( ln_trdmxl_instant ) THEN 
    384384            WRITE(numout,*) '             restart from kt == nit000 = ', nit000 
     
    548548         hmxlbn         (:,:)   = hmxl    (:,:) 
    549549          
    550          IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN 
     550         IF( sn_cfctl%l_prtctl ) THEN 
    551551            IF( ln_trdmxl_instant ) THEN 
    552552               CALL prt_ctl(tab2d_1=tmlbb   , clinfo1=' tmlbb   -   : ', mask1=tmask) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfddm.F90

    r11869 r11872  
    163163      !                                                   ! =============== 
    164164      ! 
    165       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     165      IF(sn_cfctl%l_prtctl) THEN 
    166166         CALL prt_ctl(tab3d_1=avt , clinfo1=' ddm  - t: ', tab3d_2=avs , clinfo2=' s: ', kdim=jpk) 
    167167      ENDIF 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfdrg.F90

    r11869 r11872  
    139139      ENDIF 
    140140      ! 
    141       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab2d_1=pCdU, clinfo1=' Cd*U ') 
     141      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=pCdU, clinfo1=' Cd*U ') 
    142142      ! 
    143143   END SUBROUTINE zdf_drg 
     
    213213      ENDIF 
    214214      !                                          ! print mean trends (used for debugging) 
    215       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=pua, clinfo1=' bfr  - Ua: ', mask1=umask,               & 
    216          &                                              tab3d_2=pva, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     215      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=pua, clinfo1=' bfr  - Ua: ', mask1=umask,               & 
     216         &                                  tab3d_2=pva, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    217217      ! 
    218218   END SUBROUTINE zdf_drg_exp 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfgls.F90

    r11869 r11872  
    824824      p_avt(:,:,1) = 0._wp 
    825825      ! 
    826       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     826      IF(sn_cfctl%l_prtctl) THEN 
    827827         CALL prt_ctl( tab3d_1=en   , clinfo1=' gls  - e: ', tab3d_2=p_avt, clinfo2=' t: ', kdim=jpk) 
    828828         CALL prt_ctl( tab3d_1=p_avm, clinfo1=' gls  - m: ', kdim=jpk ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfiwm.F90

    r11869 r11872  
    383383      CALL iom_put( "emix_iwm", zemx_iwm ) 
    384384       
    385       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl(tab3d_1=zav_wave , clinfo1=' iwm - av_wave: ', tab3d_2=avt, clinfo2=' avt: ', kdim=jpk) 
     385      IF(sn_cfctl%l_prtctl)   CALL prt_ctl(tab3d_1=zav_wave , clinfo1=' iwm - av_wave: ', tab3d_2=avt, clinfo2=' avt: ', kdim=jpk) 
    386386      ! 
    387387   END SUBROUTINE zdf_iwm 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfmxl.F90

    r11869 r11872  
    137137      ENDIF 
    138138      ! 
    139       IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ' ) 
     139      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ' ) 
    140140      ! 
    141141   END SUBROUTINE zdf_mxl 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfosm.F90

    r11869 r11872  
    16591659      ENDIF 
    16601660 
    1661       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     1661      IF(sn_cfctl%l_prtctl) THEN 
    16621662         CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' osm  - Ta: ', mask1=tmask,   & 
    16631663         &             tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdftke.F90

    r11869 r11872  
    623623      ENDIF 
    624624      ! 
    625       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     625      IF(sn_cfctl%l_prtctl) THEN 
    626626         CALL prt_ctl( tab3d_1=en   , clinfo1=' tke  - e: ', tab3d_2=p_avt, clinfo2=' t: ', kdim=jpk) 
    627627         CALL prt_ctl( tab3d_1=p_avm, clinfo1=' tke  - m: ', kdim=jpk ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/nemogcm.F90

    r11869 r11872  
    263263      INTEGER ::   ios, ilocal_comm   ! local integers 
    264264      !! 
    265       NAMELIST/namctl/ ln_ctl   , sn_cfctl, nn_print, nn_ictls, nn_ictle,   & 
     265      NAMELIST/namctl/ sn_cfctl,  nn_print, nn_ictls, nn_ictle,             & 
    266266         &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,             & 
    267267         &             ln_timing, ln_diacfl 
     
    314314      ! 
    315315      !                             !--------------------! 
    316       !                             ! Open listing units !  -> need ln_ctl from namctl to define lwp 
     316      !                             ! Open listing units !  -> need sn_cfctl from namctl to define lwp 
    317317      !                             !--------------------! 
    318318      ! 
     
    325325      ! 
    326326      ! finalize the definition of namctl variables 
    327       IF( sn_cfctl%l_config ) THEN 
     327      IF( sn_cfctl%l_allon ) THEN 
     328         ! Turn on all options. 
     329         CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 
     330         ! Ensure all processors are active 
     331         sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 
     332      ELSEIF( sn_cfctl%l_config ) THEN 
    328333         ! Activate finer control of report outputs 
    329334         ! optionally switch off output from selected areas (note this only 
     
    333338           &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
    334339      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 
     340         ! turn off all options. 
     341         CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 
     342      ENDIF 
     343      ! 
     344      lwp = (narea == 1) .OR. sn_cfctl%l_oceout    ! control of all listing output print 
    340345      ! 
    341346      IF(lwp) THEN                      ! open listing units 
     
    414419                           CALL     dom_init("OPA") ! Domain 
    415420      IF( ln_crs       )   CALL     crs_init        ! coarsened grid: domain initialization  
    416       IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     421      IF( sn_cfctl%l_prtctl )   & 
    417422         &                 CALL prt_ctl_init        ! Print control 
    418423       
    419       CALL diurnal_sst_bulk_init                ! diurnal sst 
     424                           CALL diurnal_sst_bulk_init       ! diurnal sst 
    420425      IF( ln_diurnal   )   CALL diurnal_sst_coolskin_init   ! cool skin    
    421426      !                             
    422       IF( ln_diurnal_only ) THEN                   ! diurnal only: a subset of the initialisation routines 
    423          CALL  istate_init                            ! ocean initial state (Dynamics and tracers) 
    424          CALL     sbc_init                            ! Forcings : surface module 
    425          CALL tra_qsr_init                            ! penetrative solar radiation qsr 
    426          IF( ln_diaobs ) THEN                         ! Observation & model comparison 
    427             CALL dia_obs_init                            ! Initialize observational data 
    428             CALL dia_obs( nit000 - 1 )                   ! Observation operator for restart 
    429          ENDIF      
    430          IF( lk_asminc )   CALL asm_inc_init          ! Assimilation increments 
    431          ! 
    432          RETURN                                       ! end of initialization 
    433       ENDIF 
     427                           IF( ln_diurnal_only ) THEN                    ! diurnal only: a subset of the initialisation routines 
     428                              CALL  istate_init                          ! ocean initial state (Dynamics and tracers) 
     429                              CALL     sbc_init                          ! Forcings : surface module 
     430                              CALL tra_qsr_init                          ! penetrative solar radiation qsr 
     431                              IF( ln_diaobs ) THEN                       ! Observation & model comparison 
     432                                 CALL dia_obs_init                       ! Initialize observational data 
     433                                 CALL dia_obs( nit000 - 1 )              ! Observation operator for restart 
     434                              ENDIF      
     435                              IF( lk_asminc )   CALL asm_inc_init        ! Assimilation increments 
     436                              ! 
     437                              RETURN                                     ! end of diurnal_only initialization 
     438                           ENDIF 
    434439       
    435440                           CALL  istate_init    ! ocean initial state (Dynamics and tracers) 
     
    514519         WRITE(numout,*) '~~~~~~~~' 
    515520         WRITE(numout,*) '   Namelist namctl' 
    516          WRITE(numout,*) '      run control (for debugging)     ln_ctl     = ', ln_ctl 
     521         WRITE(numout,*) '                              sn_cfctl%l_glochk  = ', sn_cfctl%l_glochk 
     522         WRITE(numout,*) '                              sn_cfctl%l_allon   = ', sn_cfctl%l_allon 
    517523         WRITE(numout,*) '       finer control over o/p sn_cfctl%l_config  = ', sn_cfctl%l_config 
    518524         WRITE(numout,*) '                              sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 
     
    520526         WRITE(numout,*) '                              sn_cfctl%l_oceout  = ', sn_cfctl%l_oceout 
    521527         WRITE(numout,*) '                              sn_cfctl%l_layout  = ', sn_cfctl%l_layout 
    522          WRITE(numout,*) '                              sn_cfctl%l_mppout  = ', sn_cfctl%l_mppout 
    523          WRITE(numout,*) '                              sn_cfctl%l_mpptop  = ', sn_cfctl%l_mpptop 
     528         WRITE(numout,*) '                              sn_cfctl%l_prtctl  = ', sn_cfctl%l_prtctl 
     529         WRITE(numout,*) '                              sn_cfctl%l_prttrc  = ', sn_cfctl%l_prttrc 
     530         WRITE(numout,*) '                              sn_cfctl%l_oasout  = ', sn_cfctl%l_oasout 
    524531         WRITE(numout,*) '                              sn_cfctl%procmin   = ', sn_cfctl%procmin   
    525532         WRITE(numout,*) '                              sn_cfctl%procmax   = ', sn_cfctl%procmax   
     
    559566      !                             ! Parameter control 
    560567      ! 
    561       IF( ln_ctl .OR. sn_cfctl%l_mppout .OR. sn_cfctl%l_mpptop ) THEN  ! sub-domain area indices for the control prints 
     568      IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN              ! sub-domain area indices for the control prints 
    562569         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    563570            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
     
    689696      sn_cfctl%l_oceout  = setto 
    690697      sn_cfctl%l_layout  = setto 
    691       sn_cfctl%l_mppout  = setto 
    692       sn_cfctl%l_mpptop  = setto 
     698      sn_cfctl%l_prtctl  = setto 
     699      sn_cfctl%l_prttrc  = setto 
    693700      sn_cfctl%l_oasout  = setto 
    694701   END SUBROUTINE nemo_set_cfctl 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/stpctl.F90

    r11407 r11872  
    7272      ! 
    7373      ll_wrtstp  = ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) 
    74       ll_colruns = ll_wrtstp .AND. ( ln_ctl .OR. sn_cfctl%l_runstat ) 
     74      ll_colruns = ll_wrtstp .AND. ( sn_cfctl%l_runstat ) 
    7575      ll_wrtruns = ll_colruns .AND. lwm 
    7676      IF( kt == nit000 .AND. lwp ) THEN 
     
    8282         !                                ! open run.stat file(s) at start whatever 
    8383         !                                ! the value of sn_cfctl%ptimincr 
    84          IF( lwm .AND. ( ln_ctl .OR. sn_cfctl%l_runstat ) ) THEN 
     84         IF( lwm .AND. ( sn_cfctl%l_runstat ) ) THEN 
    8585            CALL ctl_opn( numrun, 'run.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
    8686            clname = 'run.stat.nc' 
     
    147147      END IF 
    148148      !                                   !==  error handling  ==! 
    149       IF( ( ln_ctl .OR. lsomeoce ) .AND. (   &             ! have use mpp_max (because ln_ctl=.T.) or contains some ocean points 
     149      IF( ( sn_cfctl%l_glochk .OR. lsomeoce ) .AND. (   &  ! domain contains some ocean points, check for sensible ranges 
    150150         &  zmax(1) >   20._wp .OR.   &                    ! too large sea surface height ( > 20 m ) 
    151151         &  zmax(2) >   10._wp .OR.   &                    ! too large velocity ( > 10 m/s) 
     
    154154         &  zmax(4) <    0._wp .OR.   &                    ! too large sea surface salinity (keep this line for sea-ice) 
    155155         &  ISNAN( zmax(1) + zmax(2) + zmax(3) ) ) ) THEN   ! NaN encounter in the tests 
    156          IF( lk_mpp .AND. ln_ctl ) THEN 
     156         IF( lk_mpp .AND. sn_cfctl%l_glochk ) THEN 
     157            ! have use mpp_max (because sn_cfctl%l_glochk=.T. and distributed) 
    157158            CALL mpp_maxloc( 'stpctl', ABS(sshn)        , ssmask(:,:)  , zzz, ih  ) 
    158159            CALL mpp_maxloc( 'stpctl', ABS(un)          , umask (:,:,:), zzz, iu  ) 
     
    160161            CALL mpp_maxloc( 'stpctl', tsn(:,:,:,jp_sal), tmask (:,:,:), zzz, is2 ) 
    161162         ELSE 
     163            ! find local min and max locations 
    162164            ih(:)  = MAXLOC( ABS( sshn(:,:)   )                              ) + (/ nimpp - 1, njmpp - 1    /) 
    163165            iu(:)  = MAXLOC( ABS( un  (:,:,:) )                              ) + (/ nimpp - 1, njmpp - 1, 0 /) 
     
    175177         CALL dia_wri_state( 'output.abort' )     ! create an output.abort file 
    176178          
    177          IF( .NOT. ln_ctl ) THEN 
     179         IF( .NOT. sn_cfctl%l_glochk ) THEN 
    178180            WRITE(ctmp8,*) 'E R R O R message from sub-domain: ', narea 
    179181            CALL ctl_stop( 'STOP', ctmp1, ' ', ctmp8, ' ', ctmp2, ctmp3, ctmp4, ctmp5, ctmp6 ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF/dtadyn.F90

    r11869 r11872  
    176176      CALL eos( tsn, rhd, rhop, gdept_0(:,:,:) ) ! In any case, we need rhop 
    177177      ! 
    178       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN     ! print control 
     178      IF(sn_cfctl%l_prtctl) THEN                 ! print control 
    179179         CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' tn      - : ', mask1=tmask,  kdim=jpk   ) 
    180180         CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_sal), clinfo1=' sn      - : ', mask1=tmask,  kdim=jpk   ) 
     
    444444      CALL eos    ( tsn, rhd, rhop, gdept_0(:,:,:) ) ! In any case, we need rhop 
    445445 
    446       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN                  ! print control 
     446      IF(sn_cfctl%l_prtctl) THEN                     ! print control 
    447447         CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' tn      - : ', mask1=tmask,  kdim=jpk   ) 
    448448         CALL prt_ctl(tab3d_1=tsn(:,:,:,jp_sal), clinfo1=' sn      - : ', mask1=tmask,  kdim=jpk   ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF/nemogcm.F90

    r11869 r11872  
    162162      INTEGER ::   ios, ilocal_comm   ! local integers 
    163163      !! 
    164       NAMELIST/namctl/ ln_ctl   , sn_cfctl, nn_print, nn_ictls, nn_ictle,   & 
     164      NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle,              & 
    165165         &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,             & 
    166166         &             ln_timing, ln_diacfl 
     
    199199      ! 
    200200      !                             !--------------------! 
    201       !                             ! Open listing units !  -> need ln_ctl from namctl to define lwp 
     201      !                             ! Open listing units !  -> need sn_cfctl from namctl to define lwp 
    202202      !                             !--------------------! 
    203203      ! 
     
    210210      ! 
    211211      ! finalize the definition of namctl variables 
    212       IF( sn_cfctl%l_config ) THEN 
     212      IF( sn_cfctl%l_allon ) THEN 
     213         ! Turn on all options. 
     214         CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 
     215         ! Ensure all processors are active 
     216         sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 
     217      ELSEIF( sn_cfctl%l_config ) THEN 
    213218         ! Activate finer control of report outputs 
    214219         ! optionally switch off output from selected areas (note this only 
     
    218223           &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
    219224      ELSE 
    220          ! Use ln_ctl to turn on or off all options. 
    221          CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. ) 
    222       ENDIF 
    223       ! 
    224       lwp = (narea == 1) .OR. ln_ctl .OR. sn_cfctl%l_oceout    ! control of all listing output print 
     225         ! turn off all options. 
     226         CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 
     227      ENDIF 
     228      ! 
     229      lwp = (narea == 1) .OR. sn_cfctl%l_oceout    ! control of all listing output print 
    225230      ! 
    226231      IF(lwp) THEN                            ! open listing units 
     
    299304      IF( lk_c1d       )   CALL     c1d_init        ! 1D column configuration 
    300305                           CALL     dom_init("OPA") ! Domain 
    301       IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     306      IF( sn_cfctl%l_prtctl )   & 
    302307         &                 CALL prt_ctl_init        ! Print control 
    303308 
     
    339344      !! ** Purpose :   control print setting 
    340345      !! 
    341       !! ** Method  : - print namctl information and check some consistencies 
     346      !! ** Method  : - print namctl and namcfg information and check some consistencies 
    342347      !!---------------------------------------------------------------------- 
    343348      ! 
     
    347352         WRITE(numout,*) '~~~~~~~~' 
    348353         WRITE(numout,*) '   Namelist namctl' 
    349          WRITE(numout,*) '      run control (for debugging)     ln_ctl     = ', ln_ctl 
     354         WRITE(numout,*) '                              sn_cfctl%l_glochk  = ', sn_cfctl%l_glochk 
     355         WRITE(numout,*) '                              sn_cfctl%l_allon   = ', sn_cfctl%l_allon 
    350356         WRITE(numout,*) '       finer control over o/p sn_cfctl%l_config  = ', sn_cfctl%l_config 
    351357         WRITE(numout,*) '                              sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 
     
    353359         WRITE(numout,*) '                              sn_cfctl%l_oceout  = ', sn_cfctl%l_oceout 
    354360         WRITE(numout,*) '                              sn_cfctl%l_layout  = ', sn_cfctl%l_layout 
    355          WRITE(numout,*) '                              sn_cfctl%l_mppout  = ', sn_cfctl%l_mppout 
    356          WRITE(numout,*) '                              sn_cfctl%l_mpptop  = ', sn_cfctl%l_mpptop 
     361         WRITE(numout,*) '                              sn_cfctl%l_prtctl  = ', sn_cfctl%l_prtctl 
     362         WRITE(numout,*) '                              sn_cfctl%l_prttrc  = ', sn_cfctl%l_prttrc 
     363         WRITE(numout,*) '                              sn_cfctl%l_oasout  = ', sn_cfctl%l_oasout 
    357364         WRITE(numout,*) '                              sn_cfctl%procmin   = ', sn_cfctl%procmin   
    358365         WRITE(numout,*) '                              sn_cfctl%procmax   = ', sn_cfctl%procmax   
     
    392399      !                             ! Parameter control 
    393400      ! 
    394       IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN                         ! sub-domain area indices for the control prints 
     401      IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN              ! sub-domain area indices for the control prints 
    395402         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    396403            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
     
    507514      sn_cfctl%l_oceout  = setto 
    508515      sn_cfctl%l_layout  = setto 
    509       sn_cfctl%l_mppout  = setto 
    510       sn_cfctl%l_mpptop  = setto 
     516      sn_cfctl%l_prtctl  = setto 
     517      sn_cfctl%l_prttrc  = setto 
    511518      sn_cfctl%l_oasout  = setto 
    512519   END SUBROUTINE nemo_set_cfctl 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAO/nemogcm.F90

    r11869 r11872  
    9191      INTEGER ::   ios, ilocal_comm   ! local integer 
    9292      ! 
    93       NAMELIST/namctl/ ln_ctl   , sn_cfctl, nn_print, nn_ictls, nn_ictle,   & 
     93      NAMELIST/namctl/ sn_cfctl,  nn_print, nn_ictls, nn_ictle,             & 
    9494         &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,             & 
    9595         &             ln_timing, ln_diacfl 
     
    142142      ! 
    143143      !                             !--------------------! 
    144       !                             ! Open listing units !  -> need ln_ctl from namctl to define lwp 
     144      !                             ! Open listing units !  -> need sn_cfctl from namctl to define lwp 
    145145      !                             !--------------------! 
    146146      ! 
     
    153153      ! 
    154154      ! finalize the definition of namctl variables 
    155       IF( sn_cfctl%l_config ) THEN 
     155      IF( sn_cfctl%l_allon ) THEN 
     156         ! Turn on all options. 
     157         CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 
     158         ! Ensure all processors are active 
     159         sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 
     160      ELSEIF( sn_cfctl%l_config ) THEN 
    156161         ! Activate finer control of report outputs 
    157162         ! optionally switch off output from selected areas (note this only 
     
    161166           &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
    162167      ELSE 
    163          ! Use ln_ctl to turn on or off all options. 
    164          CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. ) 
    165       ENDIF 
    166       ! 
    167       lwp = (narea == 1) .OR. ln_ctl .OR. sn_cfctl%l_oceout    ! control of all listing output print 
     168         ! turn off all options. 
     169         CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 
     170      ENDIF 
     171      ! 
     172      lwp = (narea == 1) .OR. sn_cfctl%l_oceout    ! control of all listing output print 
    168173      ! 
    169174      IF(lwp) THEN                      ! open listing units 
     
    241246 
    242247 
    243       IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     248      IF( sn_cfctl%l_prtctl )   & 
    244249         &                 CALL prt_ctl_init       ! Print control 
    245250 
     
    254259      !! ** Purpose :   control print setting 
    255260      !! 
    256       !! ** Method  : - print namctl information and check some consistencies 
     261      !! ** Method  : - print namctl and namcfg information and check some consistencies 
    257262      !!---------------------------------------------------------------------- 
    258263      ! 
     
    262267         WRITE(numout,*) '~~~~~~~~' 
    263268         WRITE(numout,*) '   Namelist namctl' 
    264          WRITE(numout,*) '      run control (for debugging)     ln_ctl     = ', ln_ctl 
     269         WRITE(numout,*) '                              sn_cfctl%l_glochk  = ', sn_cfctl%l_glochk 
     270         WRITE(numout,*) '                              sn_cfctl%l_allon   = ', sn_cfctl%l_allon 
    265271         WRITE(numout,*) '       finer control over o/p sn_cfctl%l_config  = ', sn_cfctl%l_config 
    266272         WRITE(numout,*) '                              sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 
     
    268274         WRITE(numout,*) '                              sn_cfctl%l_oceout  = ', sn_cfctl%l_oceout 
    269275         WRITE(numout,*) '                              sn_cfctl%l_layout  = ', sn_cfctl%l_layout 
    270          WRITE(numout,*) '                              sn_cfctl%l_mppout  = ', sn_cfctl%l_mppout 
    271          WRITE(numout,*) '                              sn_cfctl%l_mpptop  = ', sn_cfctl%l_mpptop 
     276         WRITE(numout,*) '                              sn_cfctl%l_prtctl  = ', sn_cfctl%l_prtctl 
     277         WRITE(numout,*) '                              sn_cfctl%l_prttrc  = ', sn_cfctl%l_prttrc 
     278         WRITE(numout,*) '                              sn_cfctl%l_oasout  = ', sn_cfctl%l_oasout 
    272279         WRITE(numout,*) '                              sn_cfctl%procmin   = ', sn_cfctl%procmin   
    273280         WRITE(numout,*) '                              sn_cfctl%procmax   = ', sn_cfctl%procmax   
     
    307314      !                             ! Parameter control 
    308315      ! 
    309       IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN                         ! sub-domain area indices for the control prints 
     316      IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN              ! sub-domain area indices for the control prints 
    310317         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    311318            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
     
    427434      sn_cfctl%l_oceout  = setto 
    428435      sn_cfctl%l_layout  = setto 
    429       sn_cfctl%l_mppout  = setto 
    430       sn_cfctl%l_mpptop  = setto 
     436      sn_cfctl%l_prtctl  = setto 
     437      sn_cfctl%l_prttrc  = setto 
    431438      sn_cfctl%l_oasout  = setto 
    432439   END SUBROUTINE nemo_set_cfctl 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/daymod.F90

    r11869 r11872  
    275275      IF( nsec_week > 7*nsecd )   nsec_week = ndt05     ! New week 
    276276 
    277       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN 
     277      IF(sn_cfctl%l_prtctl) THEN 
    278278         WRITE(charout,FMT="('kt =', I4,'  d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear 
    279279         CALL prt_ctl_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/nemogcm.F90

    r11869 r11872  
    185185      INTEGER ::   ios, ilocal_comm   ! local integers 
    186186      !! 
    187       NAMELIST/namctl/ ln_ctl   , sn_cfctl, nn_print, nn_ictls, nn_ictle,   & 
     187      NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle,              & 
    188188         &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,             & 
    189189         &             ln_timing, ln_diacfl 
     
    246246      ! 
    247247      !                             !--------------------! 
    248       !                             ! Open listing units !  -> need ln_ctl from namctl to define lwp 
     248      !                             ! Open listing units !  -> need sn_cfctl from namctl to define lwp 
    249249      !                             !--------------------! 
    250250      ! 
     
    257257      ! 
    258258      ! finalize the definition of namctl variables 
    259       IF( sn_cfctl%l_config ) THEN 
     259      IF( sn_cfctl%l_allon ) THEN 
     260         ! Turn on all options. 
     261         CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 
     262         ! Ensure all processors are active 
     263         sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 
     264      ELSEIF( sn_cfctl%l_config ) THEN 
    260265         ! Activate finer control of report outputs 
    261266         ! optionally switch off output from selected areas (note this only 
     
    265270           &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
    266271      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 
     272         ! turn off all options. 
     273         CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 
     274      ENDIF 
     275      ! 
     276      lwp = (narea == 1) .OR. sn_cfctl%l_oceout    ! control of all listing output print 
    272277      ! 
    273278      IF(lwp) THEN                      ! open listing units 
     
    347352                           CALL eos_init        ! Equation of seawater 
    348353                           CALL dom_init('SAS') ! Domain 
    349       IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     354      IF( sn_cfctl%l_prtctl )   & 
    350355         &                 CALL prt_ctl_init        ! Print control 
    351356       
     
    376381      !! ** Purpose :   control print setting 
    377382      !! 
    378       !! ** Method  : - print namctl information and check some consistencies 
     383      !! ** Method  : - print namctl and namcfg information and check some consistencies 
    379384      !!---------------------------------------------------------------------- 
    380385      ! 
     
    384389         WRITE(numout,*) '~~~~~~~~' 
    385390         WRITE(numout,*) '   Namelist namctl' 
    386          WRITE(numout,*) '      run control (for debugging)     ln_ctl     = ', ln_ctl 
     391         WRITE(numout,*) '                              sn_cfctl%l_glochk  = ', sn_cfctl%l_glochk 
     392         WRITE(numout,*) '                              sn_cfctl%l_allon   = ', sn_cfctl%l_allon 
    387393         WRITE(numout,*) '       finer control over o/p sn_cfctl%l_config  = ', sn_cfctl%l_config 
    388394         WRITE(numout,*) '                              sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 
     
    390396         WRITE(numout,*) '                              sn_cfctl%l_oceout  = ', sn_cfctl%l_oceout 
    391397         WRITE(numout,*) '                              sn_cfctl%l_layout  = ', sn_cfctl%l_layout 
    392          WRITE(numout,*) '                              sn_cfctl%l_mppout  = ', sn_cfctl%l_mppout 
    393          WRITE(numout,*) '                              sn_cfctl%l_mpptop  = ', sn_cfctl%l_mpptop 
     398         WRITE(numout,*) '                              sn_cfctl%l_prtctl  = ', sn_cfctl%l_prtctl 
     399         WRITE(numout,*) '                              sn_cfctl%l_prttrc  = ', sn_cfctl%l_prttrc 
     400         WRITE(numout,*) '                              sn_cfctl%l_oasout  = ', sn_cfctl%l_oasout 
    394401         WRITE(numout,*) '                              sn_cfctl%procmin   = ', sn_cfctl%procmin   
    395402         WRITE(numout,*) '                              sn_cfctl%procmax   = ', sn_cfctl%procmax   
     
    429436      !                             ! Parameter control 
    430437      ! 
    431       IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN                 ! sub-domain area indices for the control prints 
     438      IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN              ! sub-domain area indices for the control prints 
    432439         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    433440            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
     
    553560      sn_cfctl%l_oceout  = setto 
    554561      sn_cfctl%l_layout  = setto 
    555       sn_cfctl%l_mppout  = setto 
    556       sn_cfctl%l_mpptop  = setto 
     562      sn_cfctl%l_prtctl  = setto 
     563      sn_cfctl%l_prttrc  = setto 
    557564      sn_cfctl%l_oasout  = setto 
    558565   END SUBROUTINE nemo_set_cfctl 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/sbcssm.F90

    r11869 r11872  
    131131      vb (:,:,1) = ssv_m(:,:) 
    132132  
    133       IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN            ! print control 
     133      IF(sn_cfctl%l_prtctl) THEN            ! print control 
    134134         CALL prt_ctl(tab2d_1=sst_m, clinfo1=' sst_m   - : ', mask1=tmask   ) 
    135135         CALL prt_ctl(tab2d_1=sss_m, clinfo1=' sss_m   - : ', mask1=tmask   ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/stpctl.F90

    r10603 r11872  
    6363      ! 
    6464      ll_wrtstp  = ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) 
    65       ll_colruns = ll_wrtstp .AND. ( ln_ctl .OR. sn_cfctl%l_runstat ) 
     65      ll_colruns = ll_wrtstp .AND. ( sn_cfctl%l_runstat ) 
    6666      ll_wrtruns = ll_colruns .AND. lwm 
    6767      IF( kt == nit000 .AND. lwp ) THEN 
     
    7373         !                                ! open run.stat file(s) at start whatever 
    7474         !                                ! the value of sn_cfctl%ptimincr 
    75          IF( lwm .AND. ( ln_ctl .OR. sn_cfctl%l_runstat ) ) THEN 
     75         IF( lwm .AND. ( sn_cfctl%l_runstat ) ) THEN 
    7676            CALL ctl_opn( numrun, 'run.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
    7777            clname = 'run.stat.nc' 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P2Z/p2zbio.F90

    r11869 r11872  
    367367      ENDIF 
    368368 
    369       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     369      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    370370         WRITE(charout, FMT="('bio')") 
    371371         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P2Z/p2zexp.F90

    r11869 r11872  
    146146      ENDIF 
    147147      ! 
    148       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     148      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    149149         WRITE(charout, FMT="('exp')") 
    150150         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P2Z/p2zopt.F90

    r11869 r11872  
    133133 
    134134 
    135       IF(ln_ctl .OR. sn_cfctl%l_mpptop) THEN      ! print mean trends (used for debugging) 
     135      IF(sn_cfctl%l_prttrc) THEN      ! print mean trends (used for debugging) 
    136136         WRITE(charout, FMT="('opt')") 
    137137         CALL prt_ctl_trc_info( charout ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P2Z/p2zsed.F90

    r11869 r11872  
    107107      ! 
    108108 
    109       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     109      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    110110         WRITE(charout, FMT="('sed')") 
    111111         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zagg.F90

    r11869 r11872  
    173173      ENDIF 
    174174      ! 
    175       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     175      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    176176         WRITE(charout, FMT="('agg')") 
    177177         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zbio.F90

    r11869 r11872  
    106106      & CALL p4z_ligand( kt, knt ) 
    107107      !                                                             ! 
    108       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     108      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    109109         WRITE(charout, FMT="('bio ')") 
    110110         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zfechem.F90

    r11869 r11872  
    220220      ENDIF 
    221221 
    222       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     222      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    223223         WRITE(charout, FMT="('fechem')") 
    224224         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zflx.F90

    r11869 r11872  
    179179      t_atm_co2_flx     =  atcco2      ! Total atmospheric pCO2 
    180180  
    181       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     181      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    182182         WRITE(charout, FMT="('flx ')") 
    183183         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zligand.F90

    r11869 r11872  
    9494      ENDIF 
    9595      ! 
    96       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     96      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    9797         WRITE(charout, FMT="('ligand1')") 
    9898         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zlys.F90

    r11869 r11872  
    129129      ENDIF 
    130130      ! 
    131       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     131      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    132132        WRITE(charout, FMT="('lys ')") 
    133133        CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zmeso.F90

    r11869 r11872  
    255255      IF (ln_ligand)  DEALLOCATE( zz2ligprod ) 
    256256      ! 
    257       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     257      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    258258        WRITE(charout, FMT="('meso')") 
    259259        CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zmicro.F90

    r11869 r11872  
    207207      IF (ln_ligand)  DEALLOCATE( zzligprod ) 
    208208      ! 
    209       IF(ln_ctl .OR. sn_cfctl%l_mpptop) THEN      ! print mean trends (used for debugging) 
     209      IF(sn_cfctl%l_prttrc) THEN      ! print mean trends (used for debugging) 
    210210         WRITE(charout, FMT="('micro')") 
    211211         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zmort.F90

    r11869 r11872  
    118118      END DO 
    119119      ! 
    120        IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     120       IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    121121         WRITE(charout, FMT="('nano')") 
    122122         CALL prt_ctl_trc_info(charout) 
     
    193193      END DO 
    194194      ! 
    195       IF(ln_ctl .OR. sn_cfctl%l_mpptop) THEN      ! print mean trends (used for debugging) 
     195      IF(sn_cfctl%l_prttrc) THEN      ! print mean trends (used for debugging) 
    196196         WRITE(charout, FMT="('diat')") 
    197197         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zpoc.F90

    r11869 r11872  
    248248      ENDIF 
    249249 
    250      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     250     IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    251251        WRITE(charout, FMT="('poc1')") 
    252252        CALL prt_ctl_trc_info(charout) 
     
    460460     ENDIF 
    461461 
    462       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     462      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    463463         WRITE(charout, FMT="('poc2')") 
    464464         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zprod.F90

    r11869 r11872  
    456456     ENDIF 
    457457 
    458      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     458     IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    459459         WRITE(charout, FMT="('prod')") 
    460460         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zrem.F90

    r11869 r11872  
    207207      END DO 
    208208 
    209        IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     209       IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    210210         WRITE(charout, FMT="('rem1')") 
    211211         CALL prt_ctl_trc_info(charout) 
     
    233233      END DO 
    234234 
    235        IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     235       IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    236236         WRITE(charout, FMT="('rem2')") 
    237237         CALL prt_ctl_trc_info(charout) 
     
    268268      END DO 
    269269 
    270       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     270      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    271271         WRITE(charout, FMT="('rem3')") 
    272272         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zsed.F90

    r11869 r11872  
    482482      ENDIF 
    483483      ! 
    484       IF(ln_ctl .OR. sn_cfctl%l_mpptop) THEN  ! print mean trends (USEd for debugging) 
     484      IF(sn_cfctl%l_prttrc) THEN  ! print mean trends (USEd for debugging) 
    485485         WRITE(charout, fmt="('sed ')") 
    486486         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p4zsink.F90

    r11869 r11872  
    172172      ENDIF 
    173173      ! 
    174       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     174      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    175175         WRITE(charout, FMT="('sink')") 
    176176         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p5zmeso.F90

    r11869 r11872  
    376376      ENDIF 
    377377      ! 
    378       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     378      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    379379        WRITE(charout, FMT="('meso')") 
    380380        CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p5zmicro.F90

    r11869 r11872  
    318318      ENDIF 
    319319      ! 
    320       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     320      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    321321         WRITE(charout, FMT="('micro')") 
    322322         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p5zmort.F90

    r11869 r11872  
    119119      END DO 
    120120      ! 
    121        IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     121       IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    122122         WRITE(charout, FMT="('nano')") 
    123123         CALL prt_ctl_trc_info(charout) 
     
    180180      END DO 
    181181      ! 
    182        IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     182       IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    183183         WRITE(charout, FMT="('pico')") 
    184184         CALL prt_ctl_trc_info(charout) 
     
    258258      END DO 
    259259      ! 
    260       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     260      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    261261         WRITE(charout, FMT="('diat')") 
    262262         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/P4Z/p5zprod.F90

    r11869 r11872  
    554554     ENDIF 
    555555 
    556       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     556      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    557557         WRITE(charout, FMT="('prod')") 
    558558         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/PISCES/SED/trcdmp_sed.F90

    r11869 r11872  
    106106      ! 
    107107      !                                          ! print mean trends (used for debugging) 
    108       IF( ln_ctl .OR. sn_cfctl%l_mpptop ) THEN 
     108      IF( sn_cfctl%l_prttrc ) THEN 
    109109         WRITE(charout, FMT="('dmp ')") 
    110110         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/TRP/trcadv.F90

    r11869 r11872  
    135135      END SELECT 
    136136      !                   
    137       IF( ln_ctl .OR. sn_cfctl%l_mpptop ) THEN        !== print mean trends (used for debugging) 
     137      IF( sn_cfctl%l_prttrc ) THEN        !== print mean trends (used for debugging) 
    138138         WRITE(charout, FMT="('adv ')") 
    139139         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/TRP/trcbbl.F90

    r11869 r11872  
    6767         ! 
    6868         CALL tra_bbl_dif( trb, tra, jptra )   
    69          IF( ln_ctl .OR. sn_cfctl%l_mpptop )   THEN 
     69         IF( sn_cfctl%l_prttrc )   THEN 
    7070            WRITE(charout, FMT="(' bbl_dif')")  ;  CALL prt_ctl_trc_info(charout) 
    7171            CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm, clinfo2='trd' ) 
     
    7878         ! 
    7979         CALL tra_bbl_adv( trb, tra, jptra )   
    80          IF( ln_ctl .OR. sn_cfctl%l_mpptop )   THEN 
     80         IF( sn_cfctl%l_prttrc )   THEN 
    8181            WRITE(charout, FMT="(' bbl_adv')")  ;  CALL prt_ctl_trc_info(charout) 
    8282            CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm, clinfo2='trd' ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/TRP/trcdmp.F90

    r11869 r11872  
    156156      IF( l_trdtrc )  DEALLOCATE( ztrtrd ) 
    157157      !                                          ! print mean trends (used for debugging) 
    158       IF( ln_ctl .OR. sn_cfctl%l_mpptop ) THEN 
     158      IF( sn_cfctl%l_prttrc ) THEN 
    159159         WRITE(charout, FMT="('dmp ')") 
    160160         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/TRP/trcldf.F90

    r11869 r11872  
    110110      ENDIF 
    111111      !                 
    112       IF( ln_ctl .OR. sn_cfctl%l_mpptop ) THEN ! print mean trends (used for debugging) 
     112      IF( sn_cfctl%l_prttrc ) THEN ! print mean trends (used for debugging) 
    113113         WRITE(charout, FMT="('ldf ')") 
    114114         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/TRP/trcnxt.F90

    r11869 r11872  
    178178      IF( l_trdtrc ) DEALLOCATE( ztrdt )  
    179179      ! 
    180       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   THEN  ! print mean trends (used for debugging) 
     180      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    181181         WRITE(charout, FMT="('nxt')") 
    182182         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/TRP/trcrad.F90

    r11869 r11872  
    6565      IF( ln_my_trc  )   CALL trc_rad_sms( kt, trb, trn, jp_myt0, jp_myt1               )  !  MY_TRC model 
    6666      ! 
    67       IF(ln_ctl .OR. sn_cfctl%l_mpptop) THEN      ! print mean trends (used for debugging) 
     67      IF(sn_cfctl%l_prttrc) THEN      ! print mean trends (used for debugging) 
    6868         WRITE(charout, FMT="('rad')") 
    6969         CALL prt_ctl_trc_info( charout ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/TRP/trcsbc.F90

    r11869 r11872  
    191191      ENDIF 
    192192      ! 
    193       IF( ln_ctl .OR. sn_cfctl%l_mpptop )   THEN 
     193      IF( sn_cfctl%l_prttrc )   THEN 
    194194         WRITE(charout, FMT="('sbc ')") ;  CALL prt_ctl_trc_info(charout) 
    195195                                           CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm, clinfo2='trd' ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/TRP/trczdf.F90

    r11869 r11872  
    6565      ENDIF 
    6666      !                                          ! print mean trends (used for debugging) 
    67       IF( ln_ctl .OR. sn_cfctl%l_mpptop )   THEN 
     67      IF( sn_cfctl%l_prttrc )   THEN 
    6868         WRITE(charout, FMT="('zdf ')") 
    6969         CALL prt_ctl_trc_info(charout) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/prtctl_trc.F90

    r10570 r11872  
    3535   SUBROUTINE prt_ctl_trc( tab4d, mask, clinfo, ovlap, kdim, clinfo2 ) 
    3636      !!---------------------------------------------------------------------- 
    37       !!                     ***  ROUTINE prt_ctl  *** 
     37      !!                     ***  ROUTINE prt_ctl_trc  *** 
    3838      !! 
    3939      !! ** Purpose : - print sum control 3D arrays over the same area  
     
    4141      !!                debugging a new parametrization in mono or mpp.  
    4242      !! 
    43       !! ** Method  : 2 possibilities exist when setting the ln_ctl parameter to 
     43      !! ** Method  : 2 possibilities exist when setting the sn_cfctl%prttrc parameter to 
    4444      !!                .true. in the ocean namelist: 
    4545      !!              - to debug a MPI run .vs. a mono-processor one;  
     
    5454      !!              - All arguments of the above calling sequence are optional so their 
    5555      !!                name must be explicitly typed if used. For instance if the mask 
    56       !!                array tmask(:,:,:) must be passed through the prt_ctl subroutine,  
    57       !!                it must looks like: CALL prt_ctl( mask=tmask ). 
     56      !!                array tmask(:,:,:) must be passed through the prt_ctl_trc subroutine,  
     57      !!                it must look like: CALL prt_ctl_trc( mask=tmask ). 
    5858      !!---------------------------------------------------------------------- 
    5959      REAL(wp)         , DIMENSION(:,:,:,:), INTENT(in), OPTIONAL ::   tab4d     ! 4D array 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/trcini.F90

    r11869 r11872  
    140140      ENDIF 
    141141      IF(lwp) WRITE(numout,*) 
    142       IF(ln_ctl .OR. sn_cfctl%l_mpptop) THEN            ! print mean trends (used for debugging) 
     142      IF(sn_cfctl%l_prttrc) THEN            ! print mean trends (used for debugging) 
    143143         CALL prt_ctl_trc_init 
    144144         WRITE(charout, FMT="('ini ')") 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/trcsms.F90

    r11869 r11872  
    5555      IF( ln_my_trc  )   CALL trc_sms_my_trc ( kt )    ! MY_TRC  tracers 
    5656 
    57       IF(ln_ctl .OR. sn_cfctl%l_mpptop) THEN           ! print mean trends (used for debugging) 
     57      IF(sn_cfctl%l_prttrc) THEN                       ! print mean trends (used for debugging) 
    5858         WRITE(charout, FMT="('sms ')") 
    5959         CALL prt_ctl_trc_info( charout ) 
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/trcstp.F90

    r11869 r11872  
    6969      ENDIF 
    7070      ! 
    71       ll_trcstat  = ( ln_ctl .OR. sn_cfctl%l_trcstat ) .AND. & 
     71      ll_trcstat  = ( sn_cfctl%l_trcstat ) .AND. & 
    7272     &              ( ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) ) 
    7373      IF( kt == nittrc000 .AND. lk_trdmxl_trc )  CALL trd_mxl_trc_init    ! trends: Mixed-layer 
     
    8989      IF( MOD( kt , nn_dttrc ) == 0 ) THEN      ! only every nn_dttrc time step 
    9090         ! 
    91          IF(ln_ctl .OR. sn_cfctl%l_mpptop) THEN 
     91         IF(sn_cfctl%l_prttrc) THEN 
    9292            WRITE(charout,FMT="('kt =', I4,'  d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear 
    9393            CALL prt_ctl_trc_info(charout) 
Note: See TracChangeset for help on using the changeset viewer.