Changeset 4404


Ignore:
Timestamp:
2014-02-04T13:11:52+01:00 (7 years ago)
Author:
trackstand2
Message:

Commented-out dump-arrays in stp()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/step.F90

    r3837 r4404  
    8888      INTEGER ::   ji, jj   ! dummy loop indices 
    8989#endif 
     90      INTEGER, PARAMETER :: DUMP_LEVEL = 26 ! ARPDBG - level to dump to disk 
    9091      !! --------------------------------------------------------------------- 
    9192                         CALL timing_start('Step')  
     
    267268      IF(  ln_asmiau .AND. & 
    268269         & ln_dyninc       )   CALL dyn_asm_inc( kstp )     ! apply dynamics assimilation increment 
    269                                !CALL dump_array(kstp,'un_pre_adv',un(:,:,27), & 
    270                                !                withHalos=.TRUE.) 
    271270 
    272271                               !CALL timing_start('dyn_adv')  
     
    274273                               !CALL timing_stop('dyn_adv','section')  
    275274 
    276                                !CALL dump_array(kstp,'ua_pre_vor',ua(:,:,27), & 
    277                                !                withHalos=.TRUE.) 
     275!                               CALL dump_array(kstp,'ua_pre_vor',ua(:,:,DUMP_LEVEL), & 
     276!                                               withHalos=.TRUE.,atStep=1) 
    278277 
    279278                               !CALL timing_start('dyn_vor')  
     
    281280                               !CALL timing_stop('dyn_vor','section')  
    282281 
    283                                !CALL dump_array(kstp,'ua_pre_ldf',ua(:,:,27), & 
    284                                !                withHalos=.TRUE.) 
     282!                               CALL dump_array(kstp,'ua_pre_ldf',ua(:,:,DUMP_LEVEL), & 
     283!                                               withHalos=.TRUE.,atStep=1) 
    285284 
    286285                               !CALL timing_start('dyn_ldf')  
     
    291290      IF(.NOT. Agrif_Root())   CALL Agrif_Sponge_dyn        ! momemtum sponge 
    292291#endif 
    293                                !CALL dump_array(kstp,'ua_pre_hpg',ua(:,:,27), & 
     292                               !CALL dump_array(kstp,'ua_pre_hpg',ua(:,:,DUMP_LEVEL), & 
    294293                               !                withHalos=.TRUE.) 
    295294 
     
    298297                               !CALL timing_stop('dyn_hpg','section')  
    299298 
    300                                !CALL dump_array(kstp,'ua_pre_bfr',ua(:,:,27), & 
     299                               !CALL dump_array(kstp,'ua_pre_bfr',ua(:,:,26), & 
    301300                               !                withHalos=.TRUE.) 
    302301 
     
    305304                               !CALL timing_stop('dyn_bfr','section')  
    306305                                
    307                                !CALL dump_array(kstp,'ua_pre_zdf',ua(:,:,27), & 
    308                                !                withHalos=.TRUE.) 
     306!                               CALL dump_array(kstp,'ua_pre_zdf',ua(:,:,DUMP_LEVEL), & 
     307!                                               withHalos=.TRUE.,atStep=1) 
    309308 
    310309                               !CALL timing_start('dyn_zdf')  
     
    312311                               !CALL timing_stop('dyn_zdf','section')  
    313312                                
    314                                !CALL dump_array(kstp,'ua_pre_spg',ua(:,:,27), & 
    315                                !                withHalos=.TRUE.) 
     313!                               CALL dump_array(kstp,'ua_pre_spg',ua(:,:,DUMP_LEVEL), & 
     314!                                               withHalos=.TRUE.,atStep=1) 
    316315 
    317316                               !CALL timing_start('dyn_spg')  
    318317                               CALL dyn_spg( kstp, indic )  ! surface pressure gradient 
    319318                               !CALL timing_stop('dyn_spg','section')  
    320                                !CALL dump_array(kstp,'ua_spg',ua(:,:,27), & 
    321                                !                withHalos=.TRUE.) 
     319!                               CALL dump_array(kstp,'ua_spg',ua(:,:,DUMP_LEVEL), & 
     320!                                               withHalos=.TRUE.,atStep=1) 
    322321 
    323322                               !CALL timing_start('dyn_nxt')  
Note: See TracChangeset for help on using the changeset viewer.