Ignore:
Timestamp:
2020-10-01T12:09:56+02:00 (5 months ago)
Author:
hadcv
Message:

#2365: Remove diagnostic output lbc_lnk calls

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/TRA/tramle.F90

    r13516 r13552  
    217217         IF( kt == nit000 .AND. (ntile == 0 .OR. ntile == 1) )  THEN             ! Do only on the first tile and timestep 
    218218            ALLOCATE( zLf_NH(jpi,jpj), zpsiu_mle(jpi,jpj,jpk), zpsiv_mle(jpi,jpj,jpk) ) 
     219            zpsiu_mle(:,:,:) = 0._wp ; zpsiv_mle(:,:,:) = 0._wp 
    219220         ENDIF 
    220221         ! 
    221          DO_2D( 1, 1, 1, 1 ) 
     222         DO_2D( 0, 0, 0, 0 ) 
    222223            zLf_NH(ji,jj) = SQRT( rb_c * zmld(ji,jj) ) * r1_ft(ji,jj)      ! Lf = N H / f 
    223224         END_2D 
    224225         ! 
    225226         ! divide by cross distance to give streamfunction with dimensions m^2/s 
    226          DO_3D( 1, 1, 1, 1, 1, ikmax+1 ) 
     227         DO_3D( 0, 0, 0, 0, 1, ikmax+1 ) 
    227228            zpsiu_mle(ji,jj,jk) = zpsi_uw(ji,jj,jk) * r1_e2u(ji,jj) 
    228229            zpsiv_mle(ji,jj,jk) = zpsi_vw(ji,jj,jk) * r1_e1v(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.