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/PISCES/P4Z – 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/PISCES/P4Z
Files:
18 edited

Legend:

Unmodified
Added
Removed

  • 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) 
Note: See TracChangeset for help on using the changeset viewer.