Changeset 5128 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90
- Timestamp:
- 2015-03-05T18:23:13+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90
r5123 r5128 265 265 ! debug point to follow 266 266 jiindex_1d = 0 267 IF( ln_ nicep) THEN268 DO ji = mi0( jiindx), mi1(jiindx)269 DO jj = mj0(j jindx), mj1(jjindx)267 IF( ln_icectl ) THEN 268 DO ji = mi0(iiceprt), mi1(iiceprt) 269 DO jj = mj0(jiceprt), mj1(jiceprt) 270 270 IF ( qlead(ji,jj) < 0._wp ) THEN 271 271 jiindex_1d = (jj - 1) * jpi + ji … … 275 275 ENDIF 276 276 277 IF( ln_ nicep) WRITE(numout,*) 'lim_thd_lac : nbpac = ', nbpac277 IF( ln_icectl ) WRITE(numout,*) 'lim_thd_lac : nbpac = ', nbpac 278 278 279 279 !------------------------------
Note: See TracChangeset
for help on using the changeset viewer.