Changeset 5128 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC
- Timestamp:
- 2015-03-05T18:23:13+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r5123 r5128 206 206 CALL lim_var_zapsmall 207 207 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 - ' ) 209 209 #endif 210 210 CALL lim_update1( kt ) … … 250 250 CALL lim_var_glo2eqv ! ??? 251 251 ! 252 IF( ln_ nicep) CALL lim_ctl( kt ) ! alerts in case of model crash252 IF( ln_icectl ) CALL lim_ctl( kt ) ! alerts in case of model crash 253 253 ! 254 254 CALL wrk_dealloc( jpi,jpj,jpl, zalb_os, zalb_cs, zalb_ice ) … … 352 352 INTEGER :: ios ! Local integer output status for namelist read 353 353 NAMELIST/namicerun/ jpl, nlay_i, nlay_s, cn_icerst_in, cn_icerst_out, & 354 & ln_limdyn, rn_amax, ln_ nicep, ln_limdiahsb, ln_limdiaout354 & ln_limdyn, rn_amax, ln_limdiahsb, ln_limdiaout, ln_icectl, iiceprt, jiceprt 355 355 !!------------------------------------------------------------------- 356 356 ! … … 374 374 WRITE(numout,*) ' switch for ice dynamics (1) or not (0) ln_limdyn = ', ln_limdyn 375 375 WRITE(numout,*) ' maximum ice concentration = ', rn_amax 376 WRITE(numout,*) ' Several ice points in the ice or not in ocean.output = ', ln_nicep377 376 WRITE(numout,*) ' Diagnose heat/salt budget or not ln_limdiahsb = ', ln_limdiahsb 378 377 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 388 381 ENDIF 389 382 !
Note: See TracChangeset
for help on using the changeset viewer.