Changeset 919


Ignore:
Timestamp:
2008-05-09T12:13:10+02:00 (13 years ago)
Author:
rblod
Message:

Fix restartability for LIM3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_3/limrst.F90

    r888 r919  
    445445      END DO 
    446446 
     447      DO jl = 1, jpl  
     448         CALL lbc_lnk( smv_i(:,:,jl) , 'T' ,  1. ) 
     449         CALL lbc_lnk( v_i  (:,:,jl) , 'T' ,  1. ) 
     450         CALL lbc_lnk( a_i  (:,:,jl) , 'T' ,  1. ) 
     451      END DO 
     452 
    447453      ! we first with bulk ice salinity 
    448454      DO jl = 1, jpl 
Note: See TracChangeset for help on using the changeset viewer.