New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4459 – NEMO

Changeset 4459


Ignore:
Timestamp:
2014-02-04T13:17:04+01:00 (10 years ago)
Author:
trackstand2
Message:

Add debug SUM output to dynnxt and Dynamics section of step

Location:
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

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

    r4455 r4459  
    129129 
    130130!      CALL dump_array(kt, 'ua_nxt_start',ua(:,:,1),withHalos=.TRUE.) 
     131#if defined ARPDBGSUM 
     132      WRITE (*,*) narea,': ARPDBG: dyn_nxt: start, sum(ua)=',SUM(ua),' at step=',kt 
     133#endif 
    131134 
    132135#if defined key_dynspg_flt 
     
    185188      ! 
    186189#if defined ARPDBGSUM 
    187       WRITE (*,*) 'ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt 
     190      WRITE (*,*) narea,': ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt 
    188191#endif 
    189192 
     
    245248 
    246249#if defined ARPDBGSUM 
    247       WRITE(*,*) 'ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt 
     250      WRITE(*,*) narea,': ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt 
    248251#endif 
    249252 
     
    471474 
    472475#if defined ARPDBGSUM 
    473       WRITE(*,*) 'ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt 
     476      WRITE(*,*) narea,': ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt 
    474477#endif 
    475478 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/step.F90

    r4441 r4459  
    278278!                               CALL dump_array(kstp,'ua_pre_vor',ua(:,:,DUMP_LEVEL), & 
    279279!                                               withHalos=.TRUE.,atStep=1) 
     280#if defined ARPDBGSUM 
     281                               WRITE (*,*) narea,': ARPDBG: after dyn_adv SUM(ua)= ',SUM(ua),' at step=',kstp 
     282#endif 
    280283 
    281284                               !CALL timing_start('dyn_vor')  
     
    285288!                               CALL dump_array(kstp,'ua_pre_ldf',ua(:,:,DUMP_LEVEL), & 
    286289!                                               withHalos=.TRUE.,atStep=1) 
     290#if defined ARPDBGSUM 
     291                               WRITE (*,*) narea,': ARPDBG: after dyn_vor SUM(ua)= ',SUM(ua),' at step=',kstp 
     292#endif 
    287293 
    288294                               !CALL timing_start('dyn_ldf')  
    289295                               CALL dyn_ldf( kstp )         ! lateral mixing 
    290296                               !CALL timing_stop('dyn_ldf','section')  
     297#if defined ARPDBGSUM 
     298                               WRITE (*,*) narea,': ARPDBG: after dyn_ldf SUM(ua)= ',SUM(ua),' at step=',kstp 
     299#endif 
    291300 
    292301#if defined key_agrif 
     
    302311                               !CALL dump_array(kstp,'ua_pre_bfr',ua(:,:,26), & 
    303312                               !                withHalos=.TRUE.) 
     313#if defined ARPDBGSUM 
     314                               WRITE (*,*) narea,': ARPDBG: after dyn_hpg SUM(ua)= ',SUM(ua),' at step=',kstp 
     315#endif 
    304316 
    305317                               !CALL timing_start('dyn_bfr')  
     
    309321!                               CALL dump_array(kstp,'ua_pre_zdf',ua(:,:,DUMP_LEVEL), & 
    310322!                                               withHalos=.TRUE.,atStep=1) 
     323#if defined ARPDBGSUM 
     324                               WRITE (*,*) narea,': ARPDBG: after dyn_bfr SUM(ua)= ',SUM(ua),' at step=',kstp 
     325#endif 
    311326 
    312327                               !CALL timing_start('dyn_zdf')  
     
    316331!                               CALL dump_array(kstp,'ua_pre_spg',ua(:,:,DUMP_LEVEL), & 
    317332!                                               withHalos=.TRUE.,atStep=1) 
     333#if defined ARPDBGSUM 
     334                               WRITE (*,*) narea,': ARPDBG: after dyn_zdf SUM(ua)= ',SUM(ua),' at step=',kstp 
     335#endif 
    318336 
    319337                               !CALL timing_start('dyn_spg')  
     
    322340!                               CALL dump_array(kstp,'ua_spg',ua(:,:,DUMP_LEVEL), & 
    323341!                                               withHalos=.TRUE.,atStep=1) 
    324  
     342#if defined ARPDBGSUM 
     343                               WRITE (*,*) narea,': ARPDBG: after dyn_spg SUM(ua)= ',SUM(ua),' at step=',kstp 
     344#endif 
    325345                               !CALL timing_start('dyn_nxt')  
    326346                               CALL dyn_nxt( kstp )         ! lateral velocity at next time step 
     
    328348 
    329349                               !CALL timing_stop('dyn_nxt','section')  
     350#if defined ARPDBGSUM 
     351                               WRITE (*,*) narea,': ARPDBG: after dyn_nxt SUM(ua)= ',SUM(ua),' at step=',kstp 
     352#endif 
    330353 
    331354                               !CALL timing_start('ssh_nxt')  
    332355                               CALL ssh_nxt( kstp )         ! sea surface height at next time step 
    333356                               !CALL timing_stop('ssh_nxt','section')  
     357#if defined ARPDBGSUM 
     358                               WRITE (*,*) narea,': ARPDBG: after ssh_nxt SUM(ua)= ',SUM(ua),' at step=',kstp 
     359#endif 
    334360 
    335361      IF( ln_diahsb        )   CALL dia_hsb( kstp )         ! - ML - global conservation diagnostics 
Note: See TracChangeset for help on using the changeset viewer.