Ticket #104: kpp.patch

File kpp.patch, 1.5 KB (added by kate, 18 years ago)

  • ROMS/Nonlinear/lmd_skpp.F

     
    583583      DO j=Jstr,Jend
    584584        DO i=Istr,Iend
    585585          zgrid(i,j)=z_w(i,j,N(ng))-hsbl(i,j)
     586# ifdef MASKING
     587          zgrid(i,j)=zgrid(i,j)*rmask(i,j)
     588# endif
    586589        END DO
    587590      END DO
    588591      CALL lmd_swfrac_tile (ng, Istr, Iend, Jstr, Jend, -1.0_r8,        &
    … …  
    672675      DO j=Jstr,Jend
    673676        DO i=Istr,Iend
    674677          zgrid(i,j)=z_w(i,j,N(ng))-hsbl(i,j)
     678# ifdef MASKING
     679          zgrid(i,j)=zgrid(i,j)*rmask(i,j)
     680# endif
    675681        END DO
    676682      END DO
    677683      CALL lmd_swfrac_tile (ng, Istr, Iend, Jstr, Jend, -1.0_r8,        &

  • ROMS/Nonlinear/lmd_bkpp.F

     
    525525      DO j=Jstr,Jend
    526526        DO i=Istr,Iend
    527527          zgrid(i,j)=z_w(i,j,N(ng))-hbbl(i,j)
     528# ifdef MASKING
     529          zgrid(i,j)=zgrid(i,j)*rmask(i,j)
     530# endif
    528531        END DO
    529532      END DO
    530533      CALL lmd_swfrac_tile (ng, Istr, Iend, Jstr, Jend, -1.0_r8,        &
    … …  
    621624      DO j=Jstr,Jend
    622625        DO i=Istr,Iend
    623626          zgrid(i,j)=z_w(i,j,N(ng))-hbbl(i,j)
     627# ifdef MASKING
     628          zgrid(i,j)=zgrid(i,j)*rmask(i,j)
     629# endif
    624630        END DO
    625631      END DO
    626632      CALL lmd_swfrac_tile (ng, Istr, Iend, Jstr, Jend, -1.0_r8,        &