swancom1.f90

Go to the documentation of this file.

!****************************************************************
!
  SUBROUTINE icett2
!
!****************************************************************
!
  USE m_genarr
  USE swcomm2
  USE swcomm3
  USE swcomm4
  USE ocpcomm4
  USE m_parall
  USE all_vars
  USE vars_wave

  INTEGER :: I,ISS,ID

  DO i = 1,mt
   DO iss = 1,msc
    DO id = 1,mdc
     if (sice(id,iss,i)>0) then
       ac2(id,iss,i)=ac2(id,iss,i)-sice(id,iss,i)
       ac2(id,iss,i)=max(0.0,ac2(id,iss,i))
     endif
    END DO
   END DO
  END DO

  RETURN
  END SUBROUTINE icett2