Ignore:
Timestamp:
2019-11-07T17:55:13+01:00 (11 months 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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/ICE/icedyn_rhg_evp.F90

    r11869 r11872  
    345345         l_full_nf_update = jter == nn_nevp   ! false: disable full North fold update (performances) for iter = 1 to nn_nevp-1 
    346346         ! 
    347 !!$         IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN   ! Convergence test 
     347!!$         IF(sn_cfctl%l_prtctl) THEN   ! Convergence test 
    348348!!$            DO jj = 1, jpjm1 
    349349!!$               zu_ice(:,jj) = u_ice(:,jj) ! velocity at previous time step 
     
    667667         ENDIF 
    668668 
    669 !!$         IF(ln_ctl .OR. sn_cfctl%l_mppout) THEN   ! Convergence test 
     669!!$         IF(sn_cfctl%l_prtctl) THEN   ! Convergence test 
    670670!!$            DO jj = 2 , jpjm1 
    671671!!$               zresr(:,jj) = MAX( ABS( u_ice(:,jj) - zu_ice(:,jj) ), ABS( v_ice(:,jj) - zv_ice(:,jj) ) ) 
Note: See TracChangeset for help on using the changeset viewer.