Ignore:
Timestamp:
2018-05-18T09:53:22+02:00 (2 years ago)
Author:
clem
Message:

change history of the ice routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icestp.F90

    r9598 r9604  
    22   !!====================================================================== 
    33   !!                       ***  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 
    65   !!===================================================================== 
    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 
    1527   !!---------------------------------------------------------------------- 
    1628#if defined key_si3 
     
    315327      ENDIF 
    316328      ! 
    317      IF( ln_cpl .AND. nn_cats_cpl /= 1 .AND. nn_cats_cpl /= jpl ) THEN 
    318         CALL ctl_stop( 'STOP', 'par_init: in coupled mode, nn_cats_cpl should be either 1 or jpl' ) 
    319      ENDIF 
     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 
    320332      ! 
    321333      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.