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 11869 – NEMO

Changeset 11869


Ignore:
Timestamp:
2019-11-06T17:01:36+01:00 (4 years ago)
Author:
acc
Message:

Branch 2019/fix_sn_cfctl_ticket2328. Changes to enable correct functionality for the sn_cfctl%l_mppout and sn_cfctl%l_mpptop options. These changes also introduce a sn_cfctl%l_oasout option to toggle the OASIS setup information (sbccpl.F90, only) which was yet another misuse of ln_ctl. The next step may be to remove most references to ln_ctl altogether and provide a single control mechanism. TBD. See ticket #2328

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

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/cfgs/SHARED/namelist_ref

    r11814 r11869  
    13301330       sn_cfctl%l_mppout  = .FALSE. ! 
    13311331       sn_cfctl%l_mpptop  = .FALSE. ! 
     1332       sn_cfctl%l_oasout  = .FALSE. ! 
    13321333       sn_cfctl%procmin   = 0       ! Minimum area number for reporting [default:0] 
    13331334       sn_cfctl%procmax   = 1000000 ! Maximum area number for reporting [default:1000000] 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/doc/namelists/namctl

    r10601 r11869  
    1010       sn_cfctl%l_mppout  = .FALSE. ! 
    1111       sn_cfctl%l_mpptop  = .FALSE. ! 
     12       sn_cfctl%l_oasout  = .FALSE. ! 
    1213       sn_cfctl%procmin   = 0       ! Minimum area number for reporting [default:0] 
    1314       sn_cfctl%procmax   = 1000000 ! Maximum area number for reporting [default:1000000] 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icecor.F90

    r11536 r11869  
    165165      ! 
    166166      ! controls 
    167       IF( ln_ctl       )   CALL ice_prt3D   ('icecor')                                                             ! prints 
     167      IF( ln_ctl .OR. sn_cfctl%l_mppout ) & 
     168         &                 CALL ice_prt3D   ('icecor')                                                             ! prints 
    168169      IF( ln_icectl .AND. kn == 2 ) & 
    169170         &                 CALL ice_prt     ( kt, iiceprt, jiceprt, 2, ' - Final state - ' )                       ! prints 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icedyn_rdgrft.F90

    r11732 r11869  
    268268 
    269269      ! controls 
    270       IF( ln_ctl       )   CALL ice_prt3D   ('icedyn_rdgrft')                                                             ! prints 
     270      IF( ln_ctl .OR. sn_cfctl%l_mppout )   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

    r11536 r11869  
    8888      ! 
    8989      ! controls 
    90       IF( ln_ctl       )   CALL ice_prt3D   ('icedyn_rhg')                                                             ! prints 
     90      IF( ln_ctl .OR. sn_cfctl%l_mppout ) & 
     91         &                 CALL ice_prt3D   ('icedyn_rhg')                                                             ! prints 
    9192      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
    9293      IF( ln_icediachk )   CALL ice_cons2D  (1, 'icedyn_rhg',  diag_v,  diag_s,  diag_t,  diag_fv,  diag_fs,  diag_ft) ! conservation 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icedyn_rhg_evp.F90

    r11536 r11869  
    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) THEN   ! Convergence test 
     347!!$         IF(ln_ctl .OR. sn_cfctl%l_mppout) 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) THEN   ! Convergence test 
     669!!$         IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11536 r11869  
    252252      ! controls 
    253253      IF( ln_icectl )   CALL ice_prt    (kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ') ! prints 
    254       IF( ln_ctl    )   CALL ice_prt3D  ('icethd')                                        ! prints 
     254      IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
     255        &               CALL ice_prt3D  ('icethd')                                        ! prints 
    255256      IF( ln_timing )   CALL timing_stop('icethd')                                        ! timing 
    256257      ! 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/iceupdate.F90

    r11536 r11869  
    286286#endif 
    287287      IF( ln_icectl                      )   CALL ice_prt       (kt, iiceprt, jiceprt, 3, 'Final state ice_update') ! prints 
    288       IF( ln_ctl                         )   CALL ice_prt3D     ('iceupdate')                                       ! prints 
     288      IF( ln_ctl .OR. sn_cfctl%l_mppout  )   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

    r10068 r11869  
    9595       
    9696      ! 
    97       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' cor  - Ua: ', mask1=umask,  & 
     97      IF(ln_ctl .OR. sn_cfctl%l_mppout)   CALL prt_ctl( tab3d_1=ua, clinfo1=' cor  - Ua: ', mask1=umask,  & 
    9898         &                       tab3d_2=va, clinfo2=' Va: '       , mask2=vmask ) 
    9999      ! 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/C1D/dyndmp.F90

    r11536 r11869  
    219219      ! 
    220220      !                           ! Control print 
    221       IF( ln_ctl   )   CALL prt_ctl( tab3d_1=ua(:,:,:), clinfo1=' dmp  - Ua: ', mask1=umask,   & 
    222          &                           tab3d_2=va(:,:,:), clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    223223      ! 
    224224      ! 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DOM/daymod.F90

    r10068 r11869  
    277277      IF( nsec_week > 7*nsecd )   nsec_week = ndt05     ! New week 
    278278 
    279       IF(ln_ctl) THEN 
     279      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r10068 r11869  
    139139      ENDIF 
    140140      !                                   ! Control print 
    141       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' cen2 adv - Ua: ', mask1=umask,   & 
    142          &                       tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    143143      ! 
    144144   END SUBROUTINE dyn_adv_cen2 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynadv_ubs.F90

    r10425 r11869  
    232232      ENDIF 
    233233      !                                         ! Control print 
    234       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ubs2 adv - Ua: ', mask1=umask,   & 
    235          &                       tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    236236      ! 
    237237   END SUBROUTINE dyn_adv_ubs 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynhpg.F90

    r11536 r11869  
    119119      ENDIF 
    120120      ! 
    121       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' hpg  - Ua: ', mask1=umask,   & 
    122          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    123123      ! 
    124124      IF( ln_timing )   CALL timing_stop('dyn_hpg') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynkeg.F90

    r11536 r11869  
    147147      ENDIF 
    148148      ! 
    149       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' keg  - Ua: ', mask1=umask,   & 
    150          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    151151      ! 
    152152      IF( ln_timing )   CALL timing_stop('dyn_keg') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynldf.F90

    r10068 r11869  
    7777      ENDIF 
    7878      !                                          ! print sum trends (used for debugging) 
    79       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf  - Ua: ', mask1=umask,   & 
    80          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    8181      ! 
    8282      IF( ln_timing )   CALL timing_stop('dyn_ldf') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynldf_iso.F90

    r10425 r11869  
    286286 
    287287      ! print sum trends (used for debugging) 
    288       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' ldfh - Ua: ', mask1=umask, & 
    289          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    290290 
    291291 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynnxt.F90

    r10425 r11869  
    368368      ENDIF 
    369369      ! 
    370       IF(ln_ctl)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   & 
    371          &                       tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask ) 
     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 ) 
    372372      !  
    373373      IF( ln_dynspg_ts )   DEALLOCATE( zue, zve ) 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynspg.F90

    r11536 r11869  
    172172      ENDIF 
    173173      !                                      ! print mean trends (used for debugging) 
    174       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' spg  - Ua: ', mask1=umask, & 
    175          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    176176      ! 
    177177      IF( ln_timing )   CALL timing_stop('dyn_spg') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynvor.F90

    r11536 r11869  
    179179      ! 
    180180      !                       ! print sum trends (used for debugging) 
    181       IF(ln_ctl) CALL prt_ctl( tab3d_1=ua, clinfo1=' vor  - Ua: ', mask1=umask,               & 
    182          &                     tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    183183      ! 
    184184      IF( ln_timing )   CALL timing_stop('dyn_vor') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynzad.F90

    r10068 r11869  
    114114      ENDIF 
    115115      !                             ! Control print 
    116       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' zad  - Ua: ', mask1=umask,   & 
    117          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    118118      ! 
    119119      IF( ln_timing )   CALL timing_stop('dyn_zad') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynzdf.F90

    r11281 r11869  
    492492      ENDIF 
    493493      !                                          ! print mean trends (used for debugging) 
    494       IF(ln_ctl)   CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf  - Ua: ', mask1=umask,               & 
    495          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    496496         ! 
    497497      IF( ln_timing )   CALL timing_stop('dyn_zdf') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/sshwzv.F90

    r11414 r11869  
    121121      !                                           !------------------------------! 
    122122      ! 
    123       IF(ln_ctl)   CALL prt_ctl( tab2d_1=ssha, clinfo1=' ssha  - : ', mask1=tmask ) 
     123      IF(ln_ctl .OR. sn_cfctl%l_mppout)   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)   CALL prt_ctl( tab2d_1=sshb, clinfo1=' sshb  - : ', mask1=tmask ) 
     264      IF(ln_ctl .OR. sn_cfctl%l_mppout)   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

    r11536 r11869  
    108108      LOGICAL :: l_mppout  = .FALSE.  !: Produce/do not produce mpp.output_XXXX files (T/F) 
    109109      LOGICAL :: l_mpptop  = .FALSE.  !: Produce/do not produce mpp.top.output_XXXX files (T/F) 
     110      LOGICAL :: l_oasout  = .FALSE.  !: Produce/do not write oasis setup info to ocean.output (T/F) 
    110111                                      !  Optional subsetting of processor report files 
    111112                                      !  Default settings of 0/1000000/1 should ensure all areas report. 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/LDF/ldfslp.F90

    r10425 r11869  
    365365      CALL lbc_lnk_multi( 'ldfslp', uslp , 'U', -1. , vslp , 'V', -1. , wslpi, 'W', -1., wslpj, 'W', -1. ) 
    366366 
    367       IF(ln_ctl) THEN 
     367      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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/cpl_oasis3.F90

    r10582 r11869  
    203203      paral(5) = jpiglo                                         ! global extent in x 
    204204       
    205       IF( ln_ctl ) THEN 
     205      IF( sn_cfctl%l_oasout ) THEN 
    206206         WRITE(numout,*) ' multiexchg: paral (1:5)', paral 
    207207         WRITE(numout,*) ' multiexchg: jpi, jpj =', jpi, jpj 
    … …  
    243243                  END IF 
    244244#endif 
    245                   IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 
     245                  IF( sn_cfctl%l_oasout ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 
    246246                  CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    247247                     &                OASIS_Out          , ishape , OASIS_REAL, nerror ) 
    … …  
    250250                     CALL oasis_abort ( ssnd(ji)%nid(jc,jm), 'cpl_define', 'Failure in oasis_def_var' ) 
    251251                  ENDIF 
    252                   IF( ln_ctl .AND. ssnd(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 
    253                   IF( ln_ctl .AND. ssnd(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 
     252                  IF( sn_cfctl%l_oasout .AND. ssnd(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 
     253                  IF( sn_cfctl%l_oasout .AND. ssnd(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 
    254254               END DO 
    255255            END DO 
    … …  
    288288                  END IF 
    289289#endif 
    290                   IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 
     290                  IF( sn_cfctl%l_oasout ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 
    291291                  CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    292292                     &                OASIS_In           , ishape , OASIS_REAL, nerror ) 
    … …  
    295295                     CALL oasis_abort ( srcv(ji)%nid(jc,jm), 'cpl_define', 'Failure in oasis_def_var' ) 
    296296                  ENDIF 
    297                   IF( ln_ctl .AND. srcv(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 
    298                   IF( ln_ctl .AND. srcv(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 
     297                  IF( sn_cfctl%l_oasout .AND. srcv(ji)%nid(jc,jm) /= -1 ) WRITE(numout,*) "variable defined in the namcouple" 
     298                  IF( sn_cfctl%l_oasout .AND. srcv(ji)%nid(jc,jm) == -1 ) WRITE(numout,*) "variable NOT defined in the namcouple" 
    299299 
    300300               END DO 
    … …  
    349349               CALL oasis_put ( ssnd(kid)%nid(jc,jm), kstep, pdata(nldi:nlei, nldj:nlej,jc), kinfo ) 
    350350                
    351                IF ( ln_ctl ) THEN         
     351               IF ( sn_cfctl%l_oasout ) THEN         
    352352                  IF ( kinfo == OASIS_Sent     .OR. kinfo == OASIS_ToRest .OR.   & 
    353353                     & kinfo == OASIS_SentOut  .OR. kinfo == OASIS_ToRestOut ) THEN 
    … …  
    420420                  &        kinfo == OASIS_RecvOut .OR. kinfo == OASIS_FromRestOut 
    421421                
    422                IF ( ln_ctl )   WRITE(numout,*) "llaction, kinfo, kstep, ivarid: " , llaction, kinfo, kstep, srcv(kid)%nid(jc,jm) 
     422               IF ( sn_cfctl%l_oasout )   WRITE(numout,*) "llaction, kinfo, kstep, ivarid: " , llaction, kinfo, kstep, srcv(kid)%nid(jc,jm) 
    423423                
    424424               IF ( llaction ) THEN 
    … …  
    432432                  ENDIF 
    433433                   
    434                   IF ( ln_ctl ) THEN         
     434                  IF ( sn_cfctl%l_oasout ) THEN         
    435435                     WRITE(numout,*) '****************' 
    436436                     WRITE(numout,*) 'oasis_get: Incoming ', srcv(kid)%clname 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/SBC/sbcblk.F90

    r11536 r11869  
    507507 
    508508 
    509       IF(ln_ctl) THEN 
     509      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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) THEN 
     555      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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) THEN 
     766      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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) THEN 
     916      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11536 r11869  
    557557      CALL iom_put( "vtau", vtau )   ! j-wind stress 
    558558      ! 
    559       IF(ln_ctl) THEN         ! print mean trends (used for debugging) 
     559      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11536 r11869  
    297297      END SELECT 
    298298      ! 
    299       IF(ln_ctl)   CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu  : ', kdim=jpk ) 
     299      IF(ln_ctl .OR. sn_cfctl%l_mppout)   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)   CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', kdim=jpk ) 
     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 ) 
    467467      ! 
    468468      IF( ln_timing )   CALL timing_stop('eos-pot') 
    … …  
    559559      END SELECT 
    560560      ! 
    561       IF(ln_ctl)   CALL prt_ctl( tab2d_1=prd, clinfo1=' eos2d: ' ) 
     561      IF(ln_ctl .OR. sn_cfctl%l_mppout)   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)   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(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 ) 
    675675      ! 
    676676      IF( ln_timing )   CALL timing_stop('rab_3d') 
    … …  
    785785      END SELECT 
    786786      ! 
    787       IF(ln_ctl)   CALL prt_ctl( tab2d_1=pab(:,:,jp_tem), clinfo1=' rab_2d_t: ', & 
    788          &                       tab2d_2=pab(:,:,jp_sal), clinfo2=' rab_2d_s : ' ) 
     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 : ' ) 
    789789      ! 
    790790      IF( ln_timing )   CALL timing_stop('rab_2d') 
    … …  
    929929      END DO 
    930930      ! 
    931       IF(ln_ctl)   CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2  : ', kdim=jpk ) 
     931      IF(ln_ctl .OR. sn_cfctl%l_mppout)   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

    r11536 r11869  
    168168      ENDIF 
    169169      !                                              ! print mean trends (used for debugging) 
    170       IF(ln_ctl)   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(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' ) 
    172172      ! 
    173173      IF( ln_timing )   CALL timing_stop( 'tra_adv' ) 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trabbc.F90

    r11536 r11869  
    100100      ENDIF 
    101101      ! 
    102       IF(ln_ctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbc  - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 
     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' ) 
    103103      ! 
    104104      IF( ln_timing )   CALL timing_stop('tra_bbc') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trabbl.F90

    r11536 r11869  
    119119         ! 
    120120         CALL tra_bbl_dif( tsb, tsa, jpts ) 
    121          IF( ln_ctl )  & 
     121         IF( ln_ctl .OR. sn_cfctl%l_mppout )  & 
    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)   & 
     134         IF(ln_ctl .OR. sn_cfctl%l_mppout)   & 
    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

    r11536 r11869  
    156156      ENDIF 
    157157      !                           ! Control print 
    158       IF(ln_ctl)   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(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' ) 
    160160      ! 
    161161      IF( ln_timing )   CALL timing_stop('tra_dmp') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/traldf.F90

    r10068 r11869  
    8585      ENDIF 
    8686      !                                        !* print mean trends (used for debugging) 
    87       IF(ln_ctl)   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(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' ) 
    8989      ! 
    9090      IF( ln_timing )   CALL timing_stop('tra_ldf') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/tranxt.F90

    r10425 r11869  
    181181      ! 
    182182      !                        ! control print 
    183       IF(ln_ctl)   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(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 ) 
    185185      ! 
    186186      IF( ln_timing )   CALL timing_stop('tra_nxt') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/traqsr.F90

    r11536 r11869  
    300300      ENDIF 
    301301      !                       ! print mean trends (used for debugging) 
    302       IF(ln_ctl)   CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' qsr  - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 
     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' ) 
    303303      ! 
    304304      IF( ln_timing )   CALL timing_stop('tra_qsr') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trasbc.F90

    r10499 r11869  
    266266      ENDIF 
    267267      ! 
    268       IF(ln_ctl)   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(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' ) 
    270270      ! 
    271271      IF( ln_timing )   CALL timing_stop('tra_sbc') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trazdf.F90

    r10425 r11869  
    9999      ENDIF 
    100100      !                                          ! print mean trends (used for debugging) 
    101       IF(ln_ctl)   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(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' ) 
    103103      ! 
    104104      IF( ln_timing )   CALL timing_stop('tra_zdf') 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRD/trdmxl.F90

    r11536 r11869  
    371371         hmxlbn(:,:) = hmxl(:,:) 
    372372 
    373          IF( ln_ctl ) THEN 
     373         IF( ln_ctl .OR. sn_cfctl%l_mppout ) 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 ) ) THEN 
     382      IF( ( ln_rstart ) .AND. ( kt == nit000 ) .AND. ( ln_ctl .OR.  sn_cfctl%l_mppout ) ) THEN 
    383383         IF( ln_trdmxl_instant ) THEN 
    384384            WRITE(numout,*) '             restart from kt == nit000 = ', nit000 
    … …  
    548548         hmxlbn         (:,:)   = hmxl    (:,:) 
    549549          
    550          IF( ln_ctl ) THEN 
     550         IF( ln_ctl .OR. sn_cfctl%l_mppout ) 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

    r10068 r11869  
    163163      !                                                   ! =============== 
    164164      ! 
    165       IF(ln_ctl) THEN 
     165      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11536 r11869  
    139139      ENDIF 
    140140      ! 
    141       IF(ln_ctl)   CALL prt_ctl( tab2d_1=pCdU, clinfo1=' Cd*U ') 
     141      IF(ln_ctl .OR. sn_cfctl%l_mppout)   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)   CALL prt_ctl( tab3d_1=pua, clinfo1=' bfr  - Ua: ', mask1=umask,               & 
    216          &                       tab3d_2=pva, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
     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' ) 
    217217      ! 
    218218   END SUBROUTINE zdf_drg_exp 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfgls.F90

    r11536 r11869  
    824824      p_avt(:,:,1) = 0._wp 
    825825      ! 
    826       IF(ln_ctl) THEN 
     826      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11536 r11869  
    383383      CALL iom_put( "emix_iwm", zemx_iwm ) 
    384384       
    385       IF(ln_ctl)   CALL prt_ctl(tab3d_1=zav_wave , clinfo1=' iwm - av_wave: ', tab3d_2=avt, clinfo2=' avt: ', kdim=jpk) 
     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) 
    386386      ! 
    387387   END SUBROUTINE zdf_iwm 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfmxl.F90

    r10425 r11869  
    137137      ENDIF 
    138138      ! 
    139       IF(ln_ctl)   CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ' ) 
     139      IF(ln_ctl .OR. sn_cfctl%l_mppout)   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

    r11536 r11869  
    16591659      ENDIF 
    16601660 
    1661       IF(ln_ctl) THEN 
     1661      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11536 r11869  
    623623      ENDIF 
    624624      ! 
    625       IF(ln_ctl) THEN 
     625      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11866 r11869  
    559559      !                             ! Parameter control 
    560560      ! 
    561       IF( ln_ctl ) THEN                 ! sub-domain area indices for the control prints 
     561      IF( ln_ctl .OR. sn_cfctl%l_mppout .OR. sn_cfctl%l_mpptop ) THEN  ! sub-domain area indices for the control prints 
    562562         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    563563            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
    … …  
    691691      sn_cfctl%l_mppout  = setto 
    692692      sn_cfctl%l_mpptop  = setto 
     693      sn_cfctl%l_oasout  = setto 
    693694   END SUBROUTINE nemo_set_cfctl 
    694695 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF/dtadyn.F90

    r11536 r11869  
    176176      CALL eos( tsn, rhd, rhop, gdept_0(:,:,:) ) ! In any case, we need rhop 
    177177      ! 
    178       IF(ln_ctl) THEN                  ! print control 
     178      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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) THEN                  ! print control 
     446      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11866 r11869  
    392392      !                             ! Parameter control 
    393393      ! 
    394       IF( ln_ctl ) THEN                 ! sub-domain area indices for the control prints 
     394      IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN                         ! sub-domain area indices for the control prints 
    395395         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    396396            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
    … …  
    509509      sn_cfctl%l_mppout  = setto 
    510510      sn_cfctl%l_mpptop  = setto 
     511      sn_cfctl%l_oasout  = setto 
    511512   END SUBROUTINE nemo_set_cfctl 
    512513 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAO/nemogcm.F90

    r11866 r11869  
    242242 
    243243      IF( ln_ctl .OR. sn_cfctl%l_mppout )   & 
    244          &                 CALL prt_ctl_init        ! Print control 
    245  
    246                            CALL istate_init     ! ocean initial state (Dynamics and tracers) 
     244         &                 CALL prt_ctl_init       ! Print control 
     245 
     246                           CALL istate_init        ! ocean initial state (Dynamics and tracers) 
    247247   END SUBROUTINE nemo_init 
    248248 
    … …  
    307307      !                             ! Parameter control 
    308308      ! 
    309       IF( ln_ctl ) THEN                 ! sub-domain area indices for the control prints 
     309      IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN                         ! sub-domain area indices for the control prints 
    310310         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    311311            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
    … …  
    429429      sn_cfctl%l_mppout  = setto 
    430430      sn_cfctl%l_mpptop  = setto 
     431      sn_cfctl%l_oasout  = setto 
    431432   END SUBROUTINE nemo_set_cfctl 
    432433 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/daymod.F90

    r10068 r11869  
    275275      IF( nsec_week > 7*nsecd )   nsec_week = ndt05     ! New week 
    276276 
    277       IF(ln_ctl) THEN 
     277      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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

    r11866 r11869  
    429429      !                             ! Parameter control 
    430430      ! 
    431       IF( ln_ctl ) THEN                 ! sub-domain area indices for the control prints 
     431      IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN                 ! sub-domain area indices for the control prints 
    432432         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    433433            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
    … …  
    555555      sn_cfctl%l_mppout  = setto 
    556556      sn_cfctl%l_mpptop  = setto 
     557      sn_cfctl%l_oasout  = setto 
    557558   END SUBROUTINE nemo_set_cfctl 
    558559 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/sbcssm.F90

    r11536 r11869  
    131131      vb (:,:,1) = ssv_m(:,:) 
    132132  
    133       IF(ln_ctl) THEN                  ! print control 
     133      IF(ln_ctl .OR. sn_cfctl%l_mppout) 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/TOP/PISCES/P2Z/p2zbio.F90

    r11536 r11869  
    367367      ENDIF 
    368368 
    369       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     369      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r10425 r11869  
    146146      ENDIF 
    147147      ! 
    148       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     148      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    133133 
    134134 
    135       IF(ln_ctl) THEN      ! print mean trends (used for debugging) 
     135      IF(ln_ctl .OR. sn_cfctl%l_mpptop) 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

    r11536 r11869  
    107107      ! 
    108108 
    109       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     109      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r10069 r11869  
    173173      ENDIF 
    174174      ! 
    175       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     175      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r10227 r11869  
    106106      & CALL p4z_ligand( kt, knt ) 
    107107      !                                                             ! 
    108       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     108      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    220220      ENDIF 
    221221 
    222       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     222      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    179179      t_atm_co2_flx     =  atcco2      ! Total atmospheric pCO2 
    180180  
    181       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     181      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    9494      ENDIF 
    9595      ! 
    96       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     96      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    129129      ENDIF 
    130130      ! 
    131       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     131      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    255255      IF (ln_ligand)  DEALLOCATE( zz2ligprod ) 
    256256      ! 
    257       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     257      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    207207      IF (ln_ligand)  DEALLOCATE( zzligprod ) 
    208208      ! 
    209       IF(ln_ctl) THEN      ! print mean trends (used for debugging) 
     209      IF(ln_ctl .OR. sn_cfctl%l_mpptop) 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

    r11536 r11869  
    118118      END DO 
    119119      ! 
    120        IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     120       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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) THEN      ! print mean trends (used for debugging) 
     195      IF(ln_ctl .OR. sn_cfctl%l_mpptop) 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

    r11536 r11869  
    248248      ENDIF 
    249249 
    250      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     250     IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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)   THEN  ! print mean trends (used for debugging) 
     462      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    456456     ENDIF 
    457457 
    458      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     458     IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    207207      END DO 
    208208 
    209        IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     209       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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)   THEN  ! print mean trends (used for debugging) 
     235       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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)   THEN  ! print mean trends (used for debugging) 
     270      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r10788 r11869  
    482482      ENDIF 
    483483      ! 
    484       IF(ln_ctl) THEN  ! print mean trends (USEd for debugging) 
     484      IF(ln_ctl .OR. sn_cfctl%l_mpptop) 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

    r10425 r11869  
    172172      ENDIF 
    173173      ! 
    174       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     174      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    376376      ENDIF 
    377377      ! 
    378       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     378      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    318318      ENDIF 
    319319      ! 
    320       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     320      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    119119      END DO 
    120120      ! 
    121        IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     121       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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)   THEN  ! print mean trends (used for debugging) 
     182       IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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)   THEN  ! print mean trends (used for debugging) 
     260      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    554554     ENDIF 
    555555 
    556       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     556      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r10225 r11869  
    106106      ! 
    107107      !                                          ! print mean trends (used for debugging) 
    108       IF( ln_ctl ) THEN 
     108      IF( ln_ctl .OR. sn_cfctl%l_mpptop ) 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

    r11536 r11869  
    135135      END SELECT 
    136136      !                   
    137       IF( ln_ctl ) THEN                         !== print mean trends (used for debugging) 
     137      IF( ln_ctl .OR. sn_cfctl%l_mpptop ) 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

    r10068 r11869  
    6767         ! 
    6868         CALL tra_bbl_dif( trb, tra, jptra )   
    69          IF( ln_ctl )   THEN 
     69         IF( ln_ctl .OR. sn_cfctl%l_mpptop )   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 )   THEN 
     80         IF( ln_ctl .OR. sn_cfctl%l_mpptop )   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

    r11536 r11869  
    156156      IF( l_trdtrc )  DEALLOCATE( ztrtrd ) 
    157157      !                                          ! print mean trends (used for debugging) 
    158       IF( ln_ctl ) THEN 
     158      IF( ln_ctl .OR. sn_cfctl%l_mpptop ) 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

    r11536 r11869  
    110110      ENDIF 
    111111      !                 
    112       IF( ln_ctl ) THEN                        ! print mean trends (used for debugging) 
     112      IF( ln_ctl .OR. sn_cfctl%l_mpptop ) 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

    r10425 r11869  
    178178      IF( l_trdtrc ) DEALLOCATE( ztrdt )  
    179179      ! 
    180       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     180      IF(ln_ctl .OR. sn_cfctl%l_mpptop)   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

    r11536 r11869  
    6565      IF( ln_my_trc  )   CALL trc_rad_sms( kt, trb, trn, jp_myt0, jp_myt1               )  !  MY_TRC model 
    6666      ! 
    67       IF(ln_ctl) THEN      ! print mean trends (used for debugging) 
     67      IF(ln_ctl .OR. sn_cfctl%l_mpptop) 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

    r10788 r11869  
    191191      ENDIF 
    192192      ! 
    193       IF( ln_ctl )   THEN 
     193      IF( ln_ctl .OR. sn_cfctl%l_mpptop )   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

    r10068 r11869  
    6565      ENDIF 
    6666      !                                          ! print mean trends (used for debugging) 
    67       IF( ln_ctl )   THEN 
     67      IF( ln_ctl .OR. sn_cfctl%l_mpptop )   THEN 
    6868         WRITE(charout, FMT="('zdf ')") 
    6969         CALL prt_ctl_trc_info(charout) 

  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/trcini.F90

    r10817 r11869  
    140140      ENDIF 
    141141      IF(lwp) WRITE(numout,*) 
    142       IF(ln_ctl) THEN            ! print mean trends (used for debugging) 
     142      IF(ln_ctl .OR. sn_cfctl%l_mpptop) 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

    r10068 r11869  
    5555      IF( ln_my_trc  )   CALL trc_sms_my_trc ( kt )    ! MY_TRC  tracers 
    5656 
    57       IF(ln_ctl) THEN      ! print mean trends (used for debugging) 
     57      IF(ln_ctl .OR. sn_cfctl%l_mpptop) 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

    r10570 r11869  
    7777            cvol(:,:,jk) = e1e2t(:,:) * e3t_n(:,:,jk) * tmask(:,:,jk) 
    7878         END DO 
    79          IF ( ln_ctl .OR. kt == nitrst .OR. ( ln_check_mass .AND. kt == nitend )              & 
     79         IF ( ll_trcstat .OR. kt == nitrst .OR. ( ln_check_mass .AND. kt == nitend )   & 
    8080            & .OR. iom_use( "pno3tot" ) .OR. iom_use( "ppo4tot" ) .OR. iom_use( "psiltot" )   & 
    8181            & .OR. iom_use( "palktot" ) .OR. iom_use( "pfertot" ) )                           & 
    … …  
    8989      IF( MOD( kt , nn_dttrc ) == 0 ) THEN      ! only every nn_dttrc time step 
    9090         ! 
    91          IF(ln_ctl) THEN 
     91         IF(ln_ctl .OR. sn_cfctl%l_mpptop) 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.