Changeset 4460


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

Addition of dbg SUM outputs and alteration of loop limits in dynldfiso and dynldf_bilapg

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/dynldf_bilapg.F90

    r4432 r4460  
    121121      ENDIF 
    122122 
     123#if defined ARPDBGSUM 
     124      WRITE (*,*) narea,': ARPDBG: start dyn_ldf_bilapg SUM(ua)= ',SUM(ua),' at step=',kt 
     125#endif 
     126 
    123127      ! Laplacian of (ub,vb) multiplied by ahm 
    124128      ! --------------------------------------   
    125129      CALL ldfguv( ub, vb, zwk1, zwk2, 1 )      ! rotated harmonic operator applied to (ub,vb) 
     130#if defined ARPDBGSUM 
     131      WRITE (*,*) narea,': ARPDBG: dyn_ldf_bilapg SUM(zwk1,zwk2)= ',SUM(zwk1),SUM(zwk2),' at step=',kt 
     132#endif 
    126133      !                                         ! and multiply by ahmu, ahmv (output in (zwk1,zwk2) ) 
    127134      CALL lbc_lnk( zwk1, 'U', -1. )   ;   CALL lbc_lnk( zwk2, 'V', -1. )     ! Lateral boundary conditions 
     
    151158      IF( wrk_not_released(3, 3,4) )   CALL ctl_stop('dyn_ldf_bilapg: failed to release workspace arrays') 
    152159      ! 
     160#if defined ARPDBGSUM 
     161      WRITE (*,*) narea,': ARPDBG: end dyn_ldf_bilapg SUM(ua,va)= ',SUM(ua),SUM(va),' at step=',kt 
     162#endif 
     163 
    153164   END SUBROUTINE dyn_ldf_bilapg 
    154165 
     
    235246         CALL ctl_stop('dyn:ldfguv: requested workspace arrays unavailable')   ;   RETURN 
    236247      END IF 
    237       CALL timing_start('ldfguv_1st') 
     248      !CALL timing_start('ldfguv_1st') 
    238249 
    239250#if defined key_z_first 
     
    605616      !                                                ! =============== 
    606617#endif 
    607       CALL timing_stop('ldfguv_1st','section') 
     618      !CALL timing_stop('ldfguv_1st','section') 
    608619 
    609620      !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,synchro,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
    610621 
    611       CALL timing_start('ldfguv_2nd') 
     622      !CALL timing_start('ldfguv_2nd') 
    612623      !                             ! ************ !   ! =============== 
    613624      DO jj = 2, jpjm1              !  Second step !   ! Horizontal slab 
     
    679690#if defined key_z_first 
    680691         DO ji = 2, jpim1 
    681             DO jk = 2, mbkmax(ji,jj)-1 ! jpkm1 
     692            DO jk = 2, mbkmax(ji,jj) ! -1 ! jpkm1 
    682693#else 
    683694         DO jk = 2, jpkm1 
     
    712723#if defined key_z_first 
    713724         DO ji = 2, jpim1 
    714             DO jk = 2, mbkmax(ji,jj)-1 ! jpkm1 
     725            DO jk = 2, mbkmax(ji,jj) ! -1 ! jpkm1 
    715726#else 
    716727         DO jk = 2, jpkm1 
     
    793804      END DO                                           !   End of slab 
    794805      !                                                ! =============== 
    795       CALL timing_stop('ldfguv_2nd','section') 
     806      !CALL timing_stop('ldfguv_2nd','section') 
    796807 
    797808      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) )   CALL ctl_stop('dyn:ldfguv: failed to release workspace arrays') 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_iso.F90

    r4453 r4460  
    11431143#endif 
    11441144      !CALL timing_stop('dyn_ldf_iso_vslab','section') 
     1145#if defined ARPDBGSUM 
     1146      WRITE (*,*) narea,': ARPDBG: end dyn_ldf_iso SUM(ua)= ',SUM(ua),' at step=',kt 
     1147#endif 
    11451148 
    11461149      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8) )   CALL ctl_stop('dyn_ldf_iso: failed to release workspace arrays') 
Note: See TracChangeset for help on using the changeset viewer.