swancom1.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	icett2

Function/Subroutine Documentation

icett2()

subroutine icett2

(

)

Definition at line 17 of file swancom1.f90.

!
!****************************************************************
!
  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