Changeset 4404 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2014-02-04T13:11:52+01:00 (10 years ago)

Author:

trackstand2

Message:

Commented-out dump-arrays in stp()

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (8 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -88 +88 @@
       INTEGER ::   ji, jj   ! dummy loop indices
 #endif
+      INTEGER, PARAMETER :: DUMP_LEVEL = 26 ! ARPDBG - level to dump to disk
       !! ---------------------------------------------------------------------
                          CALL timing_start('Step') 
@@ -267 +268 @@
       IF(  ln_asmiau .AND. &
          & ln_dyninc       )   CALL dyn_asm_inc( kstp )     ! apply dynamics assimilation increment
-                               !CALL dump_array(kstp,'un_pre_adv',un(:,:,27), &
-                               !                withHalos=.TRUE.)
 
                                !CALL timing_start('dyn_adv') 
@@ -274 +273 @@
                                !CALL timing_stop('dyn_adv','section') 
 
-                               !CALL dump_array(kstp,'ua_pre_vor',ua(:,:,27), &
-                               !                withHalos=.TRUE.)
+!                               CALL dump_array(kstp,'ua_pre_vor',ua(:,:,DUMP_LEVEL), &
+!                                               withHalos=.TRUE.,atStep=1)
 
                                !CALL timing_start('dyn_vor') 
@@ -281 +280 @@
                                !CALL timing_stop('dyn_vor','section') 
 
-                               !CALL dump_array(kstp,'ua_pre_ldf',ua(:,:,27), &
-                               !                withHalos=.TRUE.)
+!                               CALL dump_array(kstp,'ua_pre_ldf',ua(:,:,DUMP_LEVEL), &
+!                                               withHalos=.TRUE.,atStep=1)
 
                                !CALL timing_start('dyn_ldf') 
@@ -291 +290 @@
       IF(.NOT. Agrif_Root())   CALL Agrif_Sponge_dyn        ! momemtum sponge
 #endif
-                               !CALL dump_array(kstp,'ua_pre_hpg',ua(:,:,27), &
+                               !CALL dump_array(kstp,'ua_pre_hpg',ua(:,:,DUMP_LEVEL), &
                                !                withHalos=.TRUE.)
 
@@ -298 +297 @@
                                !CALL timing_stop('dyn_hpg','section') 
 
-                               !CALL dump_array(kstp,'ua_pre_bfr',ua(:,:,27), &
+                               !CALL dump_array(kstp,'ua_pre_bfr',ua(:,:,26), &
                                !                withHalos=.TRUE.)
 
@@ -305 +304 @@
                                !CALL timing_stop('dyn_bfr','section') 
                                
-                               !CALL dump_array(kstp,'ua_pre_zdf',ua(:,:,27), &
-                               !                withHalos=.TRUE.)
+!                               CALL dump_array(kstp,'ua_pre_zdf',ua(:,:,DUMP_LEVEL), &
+!                                               withHalos=.TRUE.,atStep=1)
 
                                !CALL timing_start('dyn_zdf') 
@@ -312 +311 @@
                                !CALL timing_stop('dyn_zdf','section') 
                                
-                               !CALL dump_array(kstp,'ua_pre_spg',ua(:,:,27), &
-                               !                withHalos=.TRUE.)
+!                               CALL dump_array(kstp,'ua_pre_spg',ua(:,:,DUMP_LEVEL), &
+!                                               withHalos=.TRUE.,atStep=1)
 
                                !CALL timing_start('dyn_spg') 
                                CALL dyn_spg( kstp, indic )  ! surface pressure gradient
                                !CALL timing_stop('dyn_spg','section') 
-                               !CALL dump_array(kstp,'ua_spg',ua(:,:,27), &
-                               !                withHalos=.TRUE.)
+!                               CALL dump_array(kstp,'ua_spg',ua(:,:,DUMP_LEVEL), &
+!                                               withHalos=.TRUE.,atStep=1)
 
                                !CALL timing_start('dyn_nxt')