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 for NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP – NEMO

Ignore:
Timestamp:
2019-11-07T17:55:13+01:00 (4 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/src/TOP
Files:
35 edited

Legend:

Unmodified
Added
Removed

  • 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.