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 4415 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90 – NEMO

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

Addition of SUM debug outputs in sshwzv

File:
1 edited

Legend:

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

    r3432 r4415  
    269269      IF( neuler == 0 .AND. kt == nit000 )   z2dt = rdt 
    270270 
     271      WRITE(*,*)'ARPDBG, ssh_wzv: sum WWW of hdivn=',SUM(hdivn),' at step=',kt 
     272      WRITE(*,*)'ARPDBG, ssh_wzv: sum WWW of fse3t=',SUM(fse3t(:,:,:)),' at step=',kt 
     273 
    271274      !                                           !------------------------------! 
    272275      !                                           !   After Sea Surface Height   ! 
     
    286289      END DO 
    287290#endif 
     291      WRITE(*,*)'ARPDBG, ssh_wzv: sum XXX of zhdiv=',SUM(zhdiv),' at step=',kt 
     292      WRITE(*,*)'ARPDBG, ssh_wzv: sum XXX of ssha=',SUM(ssha),' at step=',kt 
    288293      !                                                ! Sea surface elevation time stepping 
    289294      ! In forward Euler time stepping case, the same formulation as in the leap-frog case can be used 
     
    295300      ssha(:,:) = (  sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) )  ) * tmask(:,:,1) 
    296301#endif 
    297  
     302      WRITE(*,*)'ARPDBG, ssh_wzv: sum YYY of sshb=',SUM(sshb),' at step=',kt 
     303      WRITE(*,*)'ARPDBG, ssh_wzv: sum YYY of ssha=',SUM(ssha),' at step=',kt 
    298304#if defined key_agrif 
    299305      CALL agrif_ssh( kt ) 
     
    462468            ! 
    463469         ELSE                                         !** Leap-Frog time-stepping: Asselin filter + swap 
     470            WRITE(*,*) 'ARPDBG: ssh_nxt: SUM of sshb = ',SUM(sshb),' at step=',kt 
     471            WRITE(*,*) 'ARPDBG: ssh_nxt: SUM of sshn = ',SUM(sshn),' at step=',kt 
    464472            zec = atfp * rdt / rau0 
    465473            DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.