Changeset 11367 for NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/ICE/icedyn_adv.F90

Timestamp:

2019-07-29T18:10:24+02:00 (5 years ago)

Author:

dancopsey

Message:

More print statements including fix

File:

• NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/ICE/icedyn_adv.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/ICE/icedyn_adv.F90

@@ -75 +75 @@
          WRITE(numout,*) '~~~~~~~~~~~'
       ENDIF
+
+      IF(narea == 68) THEN
+         WRITE(968,*) 'in icedyn_adv: u_ice = ',SUM(u_ice)
+         WRITE(968,*) 'v_ice(54,0:2) = ',SUM(v_ice)
+         WRITE(968,*) 'h_i(54,0:2) = ',SUM(h_i)
+         WRITE(968,*) 'h_s(54,0:2) = ',SUM(h_s)
+         WRITE(968,*) 'h_ip(54,0:2) = ',SUM(h_ip)
+         WRITE(968,*) 'ato_i(54,0:2) = ',SUM(ato_i)
+         WRITE(968,*) 'v_i(54,0:2) = ',SUM(v_i)
+         WRITE(968,*) 'v_s(54,0:2) = ',SUM(v_s)
+         WRITE(968,*) 'sv_i(54,0:2) = ',SUM(sv_i)
+         WRITE(968,*) 'oa_i(54,0:2) = ',SUM(oa_i)
+         WRITE(968,*) 'a_i(54,0:2) = ',SUM(a_i)
+         WRITE(968,*) 'a_ip(54,0:2) = ',SUM(a_ip)
+         WRITE(968,*) 'v_ip(54,0:2) = ',SUM(v_ip)
+         WRITE(968,*) 'e_s(54,0:2) = ',SUM(e_s)
+         WRITE(968,*) 'e_i(54,0:2) = ',SUM(e_i)
+      ENDIF
+
       !
       !---------------!