Changeset 867 for trunk/NEMO/LIM_SRC_3/limitd_th.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/limitd_th.F90 (modified) (4 diffs)

trunk/NEMO/LIM_SRC_3/limitd_th.F90

@@ -134 +134 @@
       d_smv_i_thd(:,:,:) = smv_i(:,:,:) - old_smv_i(:,:,:)
 
-      !- Recover Old values
-      a_i(:,:,:)         = old_a_i (:,:,:)
-      v_s(:,:,:)         = old_v_s (:,:,:)
-      v_i(:,:,:)         = old_v_i (:,:,:)
-      e_s(:,:,:,:)       = old_e_s (:,:,:,:)
-      e_i(:,:,:,:)       = old_e_i (:,:,:,:)
-
-      IF ( ( num_sal .EQ. 2 ) .OR. ( num_sal .EQ. 4 ) ) &
-      smv_i(:,:,:)       = old_smv_i (:,:,:)
-
       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_itd_th  : cell area :')
          CALL prt_ctl(tab2d_1=at_i , clinfo1=' lim_itd_th  : at_i      :')
@@ -150 +143 @@
          CALL prt_ctl(tab2d_1=vt_s , clinfo1=' lim_itd_th  : vt_s      :')
          DO jl = 1, jpl
+            CALL prt_ctl_info(' ')
             CALL prt_ctl_info(' - Category : ', ivar1=jl)
             CALL prt_ctl_info('   ~~~~~~~~~~')
@@ -163 +157 @@
             CALL prt_ctl(tab2d_1=smv_i (:,:,jl)   , clinfo1= ' lim_itd_th  : smv_i    : ')
             DO ja = 1, nlay_i
+               CALL prt_ctl_info(' ')
                CALL prt_ctl_info(' - Layer : ', ivar1=ja)
                CALL prt_ctl_info('   ~~~~~~~')
@@ -171 +166 @@
       ENDIF
       
+      !- Recover Old values
+      a_i(:,:,:)         = old_a_i (:,:,:)
+      v_s(:,:,:)         = old_v_s (:,:,:)
+      v_i(:,:,:)         = old_v_i (:,:,:)
+      e_s(:,:,:,:)       = old_e_s (:,:,:,:)
+      e_i(:,:,:,:)       = old_e_i (:,:,:,:)
+
+      IF ( ( num_sal .EQ. 2 ) .OR. ( num_sal .EQ. 4 ) ) &
+      smv_i(:,:,:)       = old_smv_i (:,:,:)
+
 
       END SUBROUTINE lim_itd_th