Changeset 5128 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

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:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

@@ -263 +263 @@
          ! debug point to follow
          jiindex_1d = 0
-         IF( ln_nicep ) THEN
-            DO ji = mi0(jiindx), mi1(jiindx)
-               DO jj = mj0(jjindx), mj1(jjindx)
+         IF( ln_icectl ) THEN
+            DO ji = mi0(iiceprt), mi1(iiceprt)
+               DO jj = mj0(jiceprt), mj1(jiceprt)
                   jiindex_1d = (jj - 1) * jpi + ji
                   WRITE(numout,*) ' lim_thd : Category no : ', jl 
@@ -363 +363 @@
       ! Diagnostic thermodynamic growth rates
       !--------------------------------------------
-      IF( ln_nicep )   CALL lim_prt( kt, jiindx, jjindx, 1, ' - ice thermodyn. - ' )   ! control print
+      IF( ln_icectl )   CALL lim_prt( kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ' )   ! control print
 
       IF(ln_ctl) THEN            ! Control print