Changeset 4438


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

Protect debug SUM output in dynnxt and sshwzv with ARPDBGSUM

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

Legend:

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

    r4416 r4438  
    168168      CALL lbc_lnk( va, 'V', -1. )  
    169169      ! 
     170#if defined ARPDBGSUM 
    170171      WRITE (*,*) 'ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt 
     172#endif 
     173 
    171174# if defined key_obc 
    172175      !                                !* OBC open boundaries 
     
    225228#endif 
    226229 
     230#if defined ARPDBGSUM 
    227231      WRITE(*,*) 'ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt 
     232#endif 
    228233 
    229234      ! Time filter and swap of dynamics arrays 
     
    404409      ENDIF 
    405410 
     411#if defined ARPDBGSUM 
    406412      WRITE(*,*) 'ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt 
     413#endif 
    407414 
    408415      IF(ln_ctl)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   & 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r4427 r4438  
    225225      IF( neuler == 0 .AND. kt == nit000 )   z2dt = rdt 
    226226 
     227#if defined ARPDBGSUM 
    227228      WRITE(*,*)'ARPDBG, ssh_wzv: sum WWW of hdivn=',SUM(hdivn),' at step=',kt 
    228229      WRITE(*,*)'ARPDBG, ssh_wzv: sum WWW of fse3t=',SUM(fse3t(:,:,:)),' at step=',kt 
    229  
     230#endif 
    230231      !                                           !------------------------------! 
    231232      !                                           !   After Sea Surface Height   ! 
     
    245246      END DO 
    246247#endif 
     248 
     249#if defined ARPDBGSUM 
    247250      WRITE(*,*)'ARPDBG, ssh_wzv: sum XXX of zhdiv=',SUM(zhdiv),' at step=',kt 
    248251      WRITE(*,*)'ARPDBG, ssh_wzv: sum XXX of ssha=',SUM(ssha),' at step=',kt 
     252#endif 
    249253      !                                                ! Sea surface elevation time stepping 
    250254      ! In forward Euler time stepping case, the same formulation as in the leap-frog case can be used 
     
    256260      ssha(:,:) = (  sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) )  ) * tmask(:,:,1) 
    257261#endif 
     262 
     263#if defined ARPDBGSUM 
    258264      WRITE(*,*)'ARPDBG, ssh_wzv: sum YYY of sshb=',SUM(sshb),' at step=',kt 
    259265      WRITE(*,*)'ARPDBG, ssh_wzv: sum YYY of ssha=',SUM(ssha),' at step=',kt 
     266#endif 
     267 
    260268#if defined key_agrif 
    261269      CALL agrif_ssh( kt ) 
     
    424432            ! 
    425433         ELSE                                         !** Leap-Frog time-stepping: Asselin filter + swap 
     434 
     435#if defined ARPDBGSUM 
    426436            WRITE(*,*) 'ARPDBG: ssh_nxt: SUM of sshb = ',SUM(sshb),' at step=',kt 
    427437            WRITE(*,*) 'ARPDBG: ssh_nxt: SUM of sshn = ',SUM(sshn),' at step=',kt 
     438#endif 
     439 
    428440            zec = atfp * rdt / rau0 
    429441            DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.