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

trunk/NEMO/LIM_SRC_3/limitd_me.F90

@@ -462 +462 @@
       d_smv_i_trp(:,:,:)  = smv_i(:,:,:) - old_smv_i(:,:,:)
 
-      !-------------------------!
-      ! Back to initial values
-      !-------------------------!
-
-      ! update of fields will be made later in lim update
-      u_ice(:,:)    = old_u_ice(:,:)
-      v_ice(:,:)    = old_v_ice(:,:)
-      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(:,:,:,:)
-      oa_i(:,:,:)   = old_oa_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_me  : cell area :')
          CALL prt_ctl(tab2d_1=at_i , clinfo1=' lim_itd_me  : at_i      :')
@@ -484 +471 @@
          CALL prt_ctl(tab2d_1=vt_s , clinfo1=' lim_itd_me  : vt_s      :')
          DO jl = 1, jpl
+            CALL prt_ctl_info(' ')
             CALL prt_ctl_info(' - Category : ', ivar1=jl)
             CALL prt_ctl_info('   ~~~~~~~~~~')
@@ -497 +485 @@
             CALL prt_ctl(tab2d_1=smv_i (:,:,jl)   , clinfo1= ' lim_itd_me  : smv_i    : ')
             DO jk = 1, nlay_i
+               CALL prt_ctl_info(' ')
                CALL prt_ctl_info(' - Layer : ', ivar1=jk)
                CALL prt_ctl_info('   ~~~~~~~')
@@ -505 +494 @@
       ENDIF
 
+      !-------------------------!
+      ! Back to initial values
+      !-------------------------!
+
+      ! update of fields will be made later in lim update
+      u_ice(:,:)    = old_u_ice(:,:)
+      v_ice(:,:)    = old_v_ice(:,:)
+      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(:,:,:,:)
+      oa_i(:,:,:)   = old_oa_i(:,:,:)
+      IF ( ( num_sal .EQ. 2 ) .OR. ( num_sal .EQ. 4 ) ) & 
+      smv_i(:,:,:)  = old_smv_i(:,:,:)
 
       !----------------------------------------------------!