Changeset 4072 for branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

Timestamp:

2013-10-17T15:10:59+02:00 (11 years ago)

Author:

clem

Message:

few rewritings

File:

• branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90 (modified) (2 diffs)

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90

@@ -412 +412 @@
                ii                 = MOD( npb(ji) - 1, jpi ) + 1
                ij                 = ( npb(ji) - 1 ) / jpi + 1
-               WRITE(numout,*) ' violation of heat conservation : ',             &
-                  ABS ( zqts_in(ji) - zqts_fin(ji) ) * r1_rdtice
+               WRITE(numout,*) ' violation of heat conservation : ', ABS ( zqts_in(ji) - zqts_fin(ji) ) * r1_rdtice
                WRITE(numout,*) ' ji, jj   : ', ii, ij
                WRITE(numout,*) ' ht_s_b   : ', ht_s_b(ji)
@@ -622 +621 @@
       END DO
       !
-      DO ji = kideb, kiut
-         IF ( ABS ( zqti_in(ji) - zqti_fin(ji) ) * r1_rdtice  >  1.0e-6 ) THEN
-            ii                 = MOD( npb(ji) - 1, jpi ) + 1
-            ij                 = ( npb(ji) - 1 ) / jpi + 1
-            WRITE(numout,*) ' violation of heat conservation : ', ABS ( zqti_in(ji) - zqti_fin(ji) ) * r1_rdtice
-            WRITE(numout,*) ' ji, jj   : ', ii, ij
-            WRITE(numout,*) ' ht_i_b   : ', ht_i_b(ji)
-            WRITE(numout,*) ' zqti_in  : ', zqti_in (ji) * r1_rdtice
-            WRITE(numout,*) ' zqti_fin : ', zqti_fin(ji) * r1_rdtice
-            WRITE(numout,*) ' dh_i_bott: ', dh_i_bott(ji)
-            WRITE(numout,*) ' dh_i_surf: ', dh_i_surf(ji)
-            WRITE(numout,*) ' dh_snowice:', dh_snowice(ji)
-            WRITE(numout,*) ' icsuswi  : ', icsuswi(ji)
-            WRITE(numout,*) ' icboswi  : ', icboswi(ji)
-            WRITE(numout,*) ' snicswi  : ', snicswi(ji)
-         ENDIF
-      END DO
+      IF ( con_i ) THEN
+         DO ji = kideb, kiut
+            IF ( ABS ( zqti_in(ji) - zqti_fin(ji) ) * r1_rdtice  >  1.0e-6 ) THEN
+               ii                 = MOD( npb(ji) - 1, jpi ) + 1
+               ij                 = ( npb(ji) - 1 ) / jpi + 1
+               WRITE(numout,*) ' violation of heat conservation : ', ABS ( zqti_in(ji) - zqti_fin(ji) ) * r1_rdtice
+               WRITE(numout,*) ' ji, jj   : ', ii, ij
+               WRITE(numout,*) ' ht_i_b   : ', ht_i_b(ji)
+               WRITE(numout,*) ' zqti_in  : ', zqti_in (ji) * r1_rdtice
+               WRITE(numout,*) ' zqti_fin : ', zqti_fin(ji) * r1_rdtice
+               WRITE(numout,*) ' dh_i_bott: ', dh_i_bott(ji)
+               WRITE(numout,*) ' dh_i_surf: ', dh_i_surf(ji)
+               WRITE(numout,*) ' dh_snowice:', dh_snowice(ji)
+               WRITE(numout,*) ' icsuswi  : ', icsuswi(ji)
+               WRITE(numout,*) ' icboswi  : ', icboswi(ji)
+               WRITE(numout,*) ' snicswi  : ', snicswi(ji)
+            ENDIF
+         END DO
+      ENDIF
 
       !----------------------