Changeset 9881 for branches/UKMO/dev_merge_2017_CICE_interface_SI3_JGLR/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90
- Timestamp:
- 2018-07-05T17:43:55+02:00 (6 years ago)
- 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 21 21 USE dom_oce ! ocean domain 22 22 USE sbc_oce , ONLY : sst_m, sss_m, ln_ice_embd 23 USE sbc_ice , ONLY : tn_ice,snwice_mass, snwice_mass_b23 USE sbc_ice , ONLY : snwice_mass, snwice_mass_b 24 24 USE eosbn2 ! equation of state 25 25 USE domvvl ! Variable volume … … 353 353 END DO 354 354 ! 355 tn_ice (:,:,:) = t_su (:,:,:)356 355 t1_ice (:,:,:) = t_i (:,:,1,:) ! initialisation of 1st layer temp for coupled simu 357 356 … … 390 389 END DO 391 390 392 tn_ice (:,:,:) = t_i (:,:,1,:)393 391 t1_ice (:,:,:) = t_i (:,:,1,:) ! initialisation of 1st layer temp for coupled simu 394 392
Note: See TracChangeset
for help on using the changeset viewer.