- Timestamp:
- 2017-08-08T12:48:02+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90
r8413 r8414 11 11 !! 3.3 ! 2010-11 (G. Madec) ice-ocean stress always computed at each ocean time-step 12 12 !! 3.4 ! 2011-01 (A Porter) dynamical allocation 13 !! - ! 2012-10 (C. Rousset) add lim_diahsb13 !! - ! 2012-10 (C. Rousset) add ice_diahsb 14 14 !! 3.6 ! 2014-07 (M. Vancoppenolle, G. Madec, O. Marti) revise coupled interface 15 15 !! 4.0 ! 2016-06 (L. Brodeau) new unified bulk routine (based on AeroBulk) … … 36 36 USE limthd ! Ice thermodynamics 37 37 USE icerdgrft ! Ice ridging/rafting 38 USE limsbc! sea surface boundary condition39 USE limdiahsb ! Ice budget diagnostics38 USE iceupdate ! sea surface boundary condition 39 USE icediahsb ! Ice budget diagnostics 40 40 USE icewri ! Ice outputs 41 41 USE icerst ! Ice restarts … … 209 209 !! IF( .NOT. Agrif_Root() ) CALL Agrif_ChildGrid_To_ParentGrid() 210 210 !!# endif 211 CALL lim_sbc_flx( kt ) ! -- Update surface ocean mass, heat and salt fluxes211 CALL ice_update_flx( kt ) ! -- Update surface ocean mass, heat and salt fluxes 212 212 !!# if defined key_agrif 213 213 !! IF( .NOT. Agrif_Root() ) CALL Agrif_ParentGrid_To_ChildGrid() 214 214 !!# endif 215 IF( ln_limdiahsb ) CALL lim_diahsb( kt ) ! -- Diagnostics and outputs215 IF( ln_limdiahsb ) CALL ice_diahsb( kt ) ! -- Diagnostics and outputs 216 216 ! 217 217 CALL ice_wri( 1 ) ! -- Ice outputs … … 231 231 ! Update surface ocean stresses (only in ice-dynamic case) otherwise the atm.-ocean stresses are used everywhere 232 232 ! using before instantaneous surf. currents 233 IF( ln_limdyn ) CALL lim_sbc_tau( kt, ub(:,:,1), vb(:,:,1) )233 IF( ln_limdyn ) CALL ice_update_tau( kt, ub(:,:,1), vb(:,:,1) ) 234 234 !!gm remark, the ocean-ice stress is not saved in ice diag call above ..... find a solution!!! 235 235 ! … … 289 289 CALL lim_var_glo2eqv 290 290 ! 291 CALL lim_sbc_init ! ice surface boundary condition292 ! 293 IF( ln_limdiahsb) CALL lim_diahsb_init ! initialization for diags291 CALL ice_update_init ! ice surface boundary condition 292 ! 293 IF( ln_limdiahsb) CALL ice_diahsb_init ! initialization for diags 294 294 ! 295 295 fr_i(:,:) = at_i(:,:) ! initialisation of sea-ice fraction
Note: See TracChangeset
for help on using the changeset viewer.