Changeset 867 for trunk/NEMO/LIM_SRC_3/limthd.F90

Timestamp:

2008-03-14T15:57:19+01:00 (16 years ago)

Author:

ctlod

Message:

Add control prints for sea-ice

File:

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

trunk/NEMO/LIM_SRC_3/limthd.F90

@@ -476 +476 @@
 
       IF(ln_ctl) THEN   ! Control print
+         CALL prt_ctl_info(' ')
+         CALL prt_ctl_info(' - Cell values : ')
+         CALL prt_ctl_info('   ~~~~~~~~~~~~~ ')
          CALL prt_ctl(tab2d_1=area , clinfo1=' lim_thd  : cell area :')
          CALL prt_ctl(tab2d_1=at_i , clinfo1=' lim_thd  : at_i      :')
@@ -481 +484 @@
          CALL prt_ctl(tab2d_1=vt_s , clinfo1=' lim_thd  : vt_s      :')
          DO jl = 1, jpl
+            CALL prt_ctl_info(' ')
             CALL prt_ctl_info(' - Category : ', ivar1=jl)
             CALL prt_ctl_info('   ~~~~~~~~~~')
@@ -494 +498 @@
             CALL prt_ctl(tab2d_1=smv_i (:,:,jl)   , clinfo1= ' lim_thd  : smv_i    : ')
             DO jk = 1, nlay_i
+               CALL prt_ctl_info(' ')
                CALL prt_ctl_info(' - Layer : ', ivar1=jk)
                CALL prt_ctl_info('   ~~~~~~~')