Changeset 888 for trunk/NEMO/LIM_SRC_3/limistate.F90
- Timestamp:
- 2008-04-11T19:05:03+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limistate.F90
r869 r888 16 16 USE oce ! dynamics and tracers variables 17 17 USE dom_oce 18 USE sbc_oce ! Surface boundary condition: ocean fields 18 19 USE par_ice ! ice parameters 19 20 USE ice_oce ! ice variables … … 51 52 !!---------------------------------------------------------------------- 52 53 !! LIM 2.0, UCL-LOCEAN-IPSL (2005) 53 !! $ Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/limistate.F90,v 1.3 2005/03/27 18:34:41 opalod Exp$54 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt54 !! $ Id: $ 55 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 55 56 !!---------------------------------------------------------------------- 56 57 … … 93 94 CALL lim_istate_init ! reading the initials parameters of the ice 94 95 95 !-- Initialisation of sst,sss,u,v do i=1,jpi96 u_io(:,:) = 0.e0 ! ice velocity in x direction97 v_io(:,:) = 0.e0 ! ice velocity in y direction98 99 96 ! Initialisation at tn or -2 if ice 100 97 DO jj = 1, jpj … … 104 101 END DO 105 102 END DO 106 107 u_io (:,:) = 0.108 v_io (:,:) = 0.109 sst_io(:,:) = ( nfice - 1 ) * ( tn(:,:,1) + rt0 ) ! use the ocean initial values110 sss_io(:,:) = ( nfice - 1 ) * sn(:,:,1) ! tricky trick *(nfice-1) !111 103 112 104 !-------------------------------------------------------------------- … … 280 272 !--------------- 281 273 sm_i(ji,jj,jl) = zidto * sinn + ( 1.0 - zidto ) * 0.1 282 smv_i(ji,jj,jl) = MIN( sm_i(ji,jj,jl) , sss_ io(ji,jj) ) * v_i(ji,jj,jl)274 smv_i(ji,jj,jl) = MIN( sm_i(ji,jj,jl) , sss_m(ji,jj) ) * v_i(ji,jj,jl) 283 275 284 276 !---------- … … 405 397 406 398 sm_i(ji,jj,jl) = zidto * sins + ( 1.0 - zidto ) * 0.1 407 smv_i(ji,jj,jl) = MIN( sm_i(ji,jj,jl) , sss_ io(ji,jj) ) * v_i(ji,jj,jl)399 smv_i(ji,jj,jl) = MIN( sm_i(ji,jj,jl) , sss_m(ji,jj) ) * v_i(ji,jj,jl) 408 400 409 401 !---------- … … 538 530 539 531 CALL lbc_lnk( fsbbq , 'T', 1. ) 540 CALL lbc_lnk( sss_io , 'T', 1. )541 532 542 533 END SUBROUTINE lim_istate
Note: See TracChangeset
for help on using the changeset viewer.