Ignore:
Timestamp:
2017-08-08T17:53:09+02:00 (3 years ago)
Author:
clem
Message:

last routine names to be changed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd.F90

    r8424 r8426  
    3636   USE icetab         ! 1D <==> 2D transformation 
    3737   USE icevar         ! 
    38    USE icecons        ! conservation tests 
    3938   USE icectl         ! control print 
    4039   ! 
     
    9392 
    9493      IF( kt == nit000 .AND. lwp ) THEN 
    95          WRITE(numout,*)''  
    96          WRITE(numout,*)' ice_thd ' 
    97          WRITE(numout,*)' ~~~~~~~~' 
     94         WRITE(numout,*) 
     95         WRITE(numout,*)' icethd ' 
     96         WRITE(numout,*)' ~~~~~~~' 
    9897      ENDIF 
    9998       
Note: See TracChangeset for help on using the changeset viewer.