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

Timestamp:

2013-03-12T15:55:32+01:00 (11 years ago)

Author:

trackstand2

Message:

Merge of finiss

File:

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

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

@@ -38 +38 @@
    USE asminc           ! assimilation increments    (tra_asm_inc, dyn_asm_inc routines)
    USE timing, ONLY: timing_start, timing_stop, timing_reset, timing_disable
+   USE arpdebugging, ONLY: dump_array
    IMPLICIT NONE
    PRIVATE
@@ -266 +267 @@
       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') 
                                CALL dyn_adv( kstp )         ! advection (vector or flux form)
                                !CALL timing_stop('dyn_adv','section') 
 
+                               !CALL dump_array(kstp,'ua_pre_vor',ua(:,:,27), &
+                               !                withHalos=.TRUE.)
+
                                !CALL timing_start('dyn_vor') 
                                CALL dyn_vor( kstp )         ! vorticity term including Coriolis
                                !CALL timing_stop('dyn_vor','section') 
 
+                               !CALL dump_array(kstp,'ua_pre_ldf',ua(:,:,27), &
+                               !                withHalos=.TRUE.)
+
                                !CALL timing_start('dyn_ldf') 
                                CALL dyn_ldf( kstp )         ! lateral mixing
@@ -281 +291 @@
       IF(.NOT. Agrif_Root())   CALL Agrif_Sponge_dyn        ! momemtum sponge
 #endif
+                               !CALL dump_array(kstp,'ua_pre_hpg',ua(:,:,27), &
+                               !                withHalos=.TRUE.)
+
                                !CALL timing_start('dyn_hpg') 
                                CALL dyn_hpg( kstp )         ! horizontal gradient of Hydrostatic pressure
                                !CALL timing_stop('dyn_hpg','section') 
 
+                               !CALL dump_array(kstp,'ua_pre_bfr',ua(:,:,27), &
+                               !                withHalos=.TRUE.)
+
                                !CALL timing_start('dyn_bfr') 
                                CALL dyn_bfr( kstp )         ! bottom friction   
                                !CALL timing_stop('dyn_bfr','section') 
+                               
+                               !CALL dump_array(kstp,'ua_pre_zdf',ua(:,:,27), &
+                               !                withHalos=.TRUE.)
 
                                !CALL timing_start('dyn_zdf') 
                                CALL dyn_zdf( kstp )         ! vertical diffusion
                                !CALL timing_stop('dyn_zdf','section') 
+                               
+                               !CALL dump_array(kstp,'ua_pre_spg',ua(:,:,27), &
+                               !                withHalos=.TRUE.)
 
                                !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 timing_start('dyn_nxt') 
                                CALL dyn_nxt( kstp )         ! lateral velocity at next time step
+                               !CALL timing_stop('dyn_nxt','section') 
+
                                !CALL timing_stop('dyn_nxt','section')