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 5128 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC – NEMO

Ignore:
Timestamp:
2015-03-05T18:23:13+01:00 (9 years ago)
Author:
clem
Message:

LIM3: put debug (i,j) points in the namelist and change their names

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r5123 r5128  
    206206            CALL lim_var_zapsmall 
    207207            CALL lim_var_agg(1) 
    208             IF( ln_nicep )   CALL lim_prt( kt, jiindx, jjindx, 1, ' - ice thermo bdy - ' ) 
     208            IF( ln_icectl )   CALL lim_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' ) 
    209209#endif 
    210210            CALL lim_update1( kt ) 
     
    250250         CALL lim_var_glo2eqv                       ! ??? 
    251251         ! 
    252          IF( ln_nicep )   CALL lim_ctl( kt )        ! alerts in case of model crash 
     252         IF( ln_icectl )   CALL lim_ctl( kt )        ! alerts in case of model crash 
    253253         ! 
    254254         CALL wrk_dealloc( jpi,jpj,jpl, zalb_os, zalb_cs, zalb_ice ) 
     
    352352      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    353353      NAMELIST/namicerun/ jpl, nlay_i, nlay_s, cn_icerst_in, cn_icerst_out,   & 
    354          &                ln_limdyn, rn_amax, ln_nicep, ln_limdiahsb, ln_limdiaout 
     354         &                ln_limdyn, rn_amax, ln_limdiahsb, ln_limdiaout, ln_icectl, iiceprt, jiceprt   
    355355      !!------------------------------------------------------------------- 
    356356      !                     
     
    374374         WRITE(numout,*) '   switch for ice dynamics (1) or not (0)      ln_limdyn   = ', ln_limdyn 
    375375         WRITE(numout,*) '   maximum ice concentration                               = ', rn_amax  
    376          WRITE(numout,*) '   Several ice points in the ice or not in ocean.output    = ', ln_nicep 
    377376         WRITE(numout,*) '   Diagnose heat/salt budget or not          ln_limdiahsb  = ', ln_limdiahsb 
    378377         WRITE(numout,*) '   Output   heat/salt budget or not          ln_limdiaout  = ', ln_limdiaout 
    379       ENDIF 
    380       ! 
    381       !IF( lk_mpp .AND. ln_nicep ) THEN 
    382       !   ln_nicep = .FALSE. 
    383       !   CALL ctl_warn( 'ice_run : specific control print for LIM3 desactivated with MPI' ) 
    384       !ENDIF 
    385       IF( ln_nicep ) THEN      ! control print at a given point 
    386          jiindx = 15    ;   jjindx =  44 
    387          IF(lwp) WRITE(numout,*) ' The debugging point is : jiindx : ',jiindx, ' jjindx : ',jjindx 
     378         WRITE(numout,*) '   control prints in ocean.out for (i,j)=(iiceprt,jiceprt) = ', ln_icectl 
     379         WRITE(numout,*) '   i-index for control prints (ln_icectl=true)             = ', iiceprt 
     380         WRITE(numout,*) '   j-index for control prints (ln_icectl=true)             = ', jiceprt 
    388381      ENDIF 
    389382      ! 
Note: See TracChangeset for help on using the changeset viewer.