Changeset 9604 for NEMO/trunk/src/ICE/icestp.F90
- Timestamp:
- 2018-05-18T09:53:22+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icestp.F90
r9598 r9604 2 2 !!====================================================================== 3 3 !! *** MODULE icestp *** 4 !! Surface module : update the ocean surface boundary condition over ice 5 !! covered area using SI3 sea-ice model 4 !! sea ice : Master routine for all the sea ice model 6 5 !!===================================================================== 7 !! History : 2.0 ! 2006-12 (M. Vancoppenolle) Original code 8 !! 3.0 ! 2008-02 (C. Talandier) Surface module from icestp.F90 9 !! - ! 2008-04 (G. Madec) sltyle and ice_ctl routine 10 !! 3.3 ! 2010-11 (G. Madec) ice-ocean stress always computed at each ocean time-step 11 !! 3.4 ! 2011-01 (A Porter) dynamical allocation 12 !! - ! 2012-10 (C. Rousset) add ice_dia 13 !! 3.6 ! 2014-07 (M. Vancoppenolle, G. Madec, O. Marti) revise coupled interface 14 !! 4.0 ! 2016-06 (L. Brodeau) new unified bulk routine (based on AeroBulk) 6 !! 7 !! The sea ice model SI3 (Sea Ice modelling Integrated Initiative), 8 !! aka Sea Ice cube for its nickname 9 !! 10 !! is originally based on LIM3, developed in Louvain-la-Neuve by: 11 !! * Martin Vancoppenolle (UCL-ASTR, Belgium) 12 !! * Sylvain Bouillon (UCL-ASTR, Belgium) 13 !! * Miguel Angel Morales Maqueda (NOC-L, UK) 14 !! thanks to valuable earlier work by 15 !! * Thierry Fichefet 16 !! * Hugues Goosse 17 !! thanks also to the following persons who contributed 18 !! * Gurvan Madec, Claude Talandier, Christian Ethe (LOCEAN, France) 19 !! * Xavier Fettweis (UCL-ASTR), Ralph Timmermann (AWI, Germany) 20 !! * Bill Lipscomb (LANL), Cecilia Bitz (UWa) and Elisabeth Hunke (LANL), USA. 21 !! 22 !! SI3 has been made possible by a handful of persons who met as working group 23 !! in France and UK: 24 !! * ... 25 !!====================================================================== 26 !! History : 4.0 ! 2018 (C. Rousset) Original code SI3 15 27 !!---------------------------------------------------------------------- 16 28 #if defined key_si3 … … 315 327 ENDIF 316 328 ! 317 318 319 329 IF( ln_cpl .AND. nn_cats_cpl /= 1 .AND. nn_cats_cpl /= jpl ) THEN 330 CALL ctl_stop( 'STOP', 'par_init: in coupled mode, nn_cats_cpl should be either 1 or jpl' ) 331 ENDIF 320 332 ! 321 333 IF( ln_bdy .AND. ln_icediachk ) CALL ctl_warn('par_init: online conservation check does not work with BDY')
Note: See TracChangeset
for help on using the changeset viewer.