Ignore:
Timestamp:
2019-10-29T12:00:04+01:00 (12 months ago)
Author:
mathiot
Message:

rm useless USE statement, option compatibility test + minor changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfload.F90

    r11553 r11823  
    7676      ! 
    7777      !                                !- assume water displaced by the ice shelf is at T=-1.9 and S=34.4 (rude) 
    78       zts_top(:,:,jp_tem) = -1.9_wp   ;   zts_top(:,:,jp_sal) = 35.4_wp 
     78      zts_top(:,:,jp_tem) = -1.9_wp   ;   zts_top(:,:,jp_sal) = 34.4_wp 
    7979      ! 
    8080      DO jk = 1, jpk                   !- compute density of the water displaced by the ice shelf  
Note: See TracChangeset for help on using the changeset viewer.