Ignore:
Timestamp:
2016-04-13T17:15:13+02:00 (5 years ago)
Author:
clem
Message:

solve issue #1712

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r5540 r6469  
    2424   USE par_oce          ! ocean parameters 
    2525   USE dom_ice          ! sea-ice domain 
     26   USE limvar           ! lim_var_salprof 
    2627   USE in_out_manager   ! I/O manager 
    2728   USE lib_mpp          ! MPP library 
     
    337338         END DO 
    338339      END DO 
     340 
     341      ! for constant salinity in time 
     342      IF( nn_icesal == 1 .OR. nn_icesal == 3 )  THEN 
     343         CALL lim_var_salprof 
     344         smv_i = sm_i * v_i 
     345      ENDIF 
    339346 
    340347      ! Snow temperature and heat content 
Note: See TracChangeset for help on using the changeset viewer.