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/icerhg.F90

    r8424 r8426  
    1919   USE ice              ! LIM-3 variables 
    2020   USE icerhg_evp       ! EVP rheology 
    21    USE icecons          ! conservation tests 
    2221   USE icectl           ! control prints 
    2322   USE icevar 
     
    6160 
    6261      IF( nn_timing == 1 )  CALL timing_start('icerhg') 
     62 
     63      IF( kt == nit000 .AND. lwp ) THEN 
     64         WRITE(numout,*) 
     65         WRITE(numout,*)'icerhg' 
     66         WRITE(numout,*)'~~~~~~' 
     67      ENDIF 
    6368 
    6469      CALL ice_var_agg(1)   ! aggregate ice categories 
Note: See TracChangeset for help on using the changeset viewer.