- Timestamp:
- 2013-11-08T06:51:52+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4161 r4166 36 36 PUBLIC lim_istate ! routine called by lim_init.F90 37 37 38 ! !!** init namelist (namiceini) ** 39 REAL(wp) :: ttest ! threshold water temperature for initial sea ice 40 REAL(wp) :: hninn ! initial snow thickness in the north 41 REAL(wp) :: hginn_u ! initial ice thickness in the north 42 REAL(wp) :: aginn_u ! initial leads area in the north 43 REAL(wp) :: hginn_d ! initial ice thickness in the north 44 REAL(wp) :: aginn_d ! initial leads area in the north 45 REAL(wp) :: hnins ! initial snow thickness in the south 46 REAL(wp) :: hgins_u ! initial ice thickness in the south 47 REAL(wp) :: agins_u ! initial leads area in the south 48 REAL(wp) :: hgins_d ! initial ice thickness in the south 49 REAL(wp) :: agins_d ! initial leads area in the south 50 REAL(wp) :: sinn ! initial salinity 51 REAL(wp) :: sins ! 38 39 !! * Module variables 40 ! !!** init namelist (namiceini) ** 41 REAL(wp) :: ttest ! threshold water temperature for initial sea ice 42 REAL(wp) :: hninn ! initial snow thickness in the north 43 REAL(wp) :: hnins ! initial snow thickness in the south 44 REAL(wp) :: hginn ! initial ice thickness in the north 45 REAL(wp) :: hgins ! initial ice thickness in the south 46 REAL(wp) :: aginn ! initial leads area in the north 47 REAL(wp) :: agins ! initial leads area in the south 48 REAL(wp) :: sinn ! initial salinity 49 REAL(wp) :: sins 52 50 53 51 !!---------------------------------------------------------------------- … … 483 481 !! 8.5 ! 07-11 (M. Vancoppenolle) rewritten initialization 484 482 !!----------------------------------------------------------------------------- 485 <<<<<<< .courant 483 NAMELIST/namiceini/ ttest, hninn, hnins, hginn, hgins, aginn, agins, sinn, sins 484 ! 486 485 INTEGER :: ios ! Local integer output status for namelist read 487 NAMELIST/namiceini/ ttest, hninn, hginn_u, aginn_u, hginn_d, aginn_d, hnins, &488 & hgins_u, agins_u, hgins_d, agins_d, sinn, sins489 =======490 NAMELIST/namiceini/ ttest, hninn, hnins, hginn, hgins, aginn, agins, sinn, sins491 >>>>>>> .fusion-droit.r4160492 486 !!----------------------------------------------------------------------------- 493 <<<<<<< .courant494 487 ! 495 488 REWIND( numnam_ice_ref ) ! Namelist namiceini in reference namelist : Ice initial state … … 501 494 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 502 495 WRITE ( numoni, namiceini ) 503 =======504 496 505 497 ! Define the initial parameters 506 498 ! ------------------------- 507 499 508 ! Read Namelist namiceini509 REWIND ( numnam_ice )510 READ ( numnam_ice , namiceini )511 >>>>>>> .fusion-droit.r4160512 500 IF(lwp) THEN 513 501 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.