Changeset 421 for branches


Ignore:
Timestamp:
04/24/23 11:52:17 (12 months ago)
Author:
dumas
Message:

Use only in noicethick : compile but not tested

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/no-icethick.f90

    r4 r421  
    33!< 
    44 
    5 !> SUBROUTINE: NOICETHICK() 
     5!> SUBROUTINE: noicethick 
    66!! \author Catherine 
    77!! \date janvier 2005 
    … …  
    1111!! 
    1212!< 
    13 subroutine NOICETHICK()    
     13subroutine noicethick    
    1414 
    1515 
    16        USE module3D_phy 
     16  use module3D_phy, only:time,dtt,isynchro 
    1717 
    1818 
    19   IMPLICIT NONE 
    20      
    21       time=time+dtt 
    22       isynchro=1 
     19  implicit none 
    2320 
    24      return 
    25   end 
     21  time=time+dtt 
     22  isynchro=1 
    2623 
     24end subroutine noicethick 
     25 
Note: See TracChangeset for help on using the changeset viewer.