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/LIM_SRC_3/limthd_lac.F90 – 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/LIM_SRC_3/limthd_lac.F90

    r5123 r5128  
    265265      ! debug point to follow 
    266266      jiindex_1d = 0 
    267       IF( ln_nicep ) THEN 
    268          DO ji = mi0(jiindx), mi1(jiindx) 
    269             DO jj = mj0(jjindx), mj1(jjindx) 
     267      IF( ln_icectl ) THEN 
     268         DO ji = mi0(iiceprt), mi1(iiceprt) 
     269            DO jj = mj0(jiceprt), mj1(jiceprt) 
    270270               IF ( qlead(ji,jj)  <  0._wp ) THEN 
    271271                  jiindex_1d = (jj - 1) * jpi + ji 
     
    275275      ENDIF 
    276276    
    277       IF( ln_nicep ) WRITE(numout,*) 'lim_thd_lac : nbpac = ', nbpac 
     277      IF( ln_icectl ) WRITE(numout,*) 'lim_thd_lac : nbpac = ', nbpac 
    278278 
    279279      !------------------------------ 
Note: See TracChangeset for help on using the changeset viewer.