New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9881 for branches/UKMO/dev_merge_2017_CICE_interface_SI3_JGLR/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90 – NEMO

Ignore:
Timestamp:
2018-07-05T17:43:55+02:00 (6 years ago)
Author:
jamrae
Message:

Various changes to allow UKMO coupled configuration to compile with LIM3 turned on and CICE turned off.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_merge_2017_CICE_interface_SI3_JGLR/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90

    r9499 r9881  
    2121   USE dom_oce        ! ocean domain 
    2222   USE sbc_oce , ONLY : sst_m, sss_m, ln_ice_embd  
    23    USE sbc_ice , ONLY : tn_ice, snwice_mass, snwice_mass_b 
     23   USE sbc_ice , ONLY : snwice_mass, snwice_mass_b 
    2424   USE eosbn2         ! equation of state 
    2525   USE domvvl         ! Variable volume 
     
    353353         END DO 
    354354         ! 
    355          tn_ice (:,:,:) = t_su (:,:,:) 
    356355         t1_ice (:,:,:) = t_i (:,:,1,:)   ! initialisation of 1st layer temp for coupled simu 
    357356 
     
    390389         END DO 
    391390 
    392          tn_ice (:,:,:) = t_i (:,:,1,:) 
    393391         t1_ice (:,:,:) = t_i (:,:,1,:)   ! initialisation of 1st layer temp for coupled simu 
    394392          
Note: See TracChangeset for help on using the changeset viewer.