Changeset 881 for branches/dev_001_SBC/NEMO/LIM_SRC/limsbc.F90
- Timestamp:
- 2008-04-08T11:45:52+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/LIM_SRC/limsbc.F90
r878 r881 1 MODULE limsbc 1 MODULE limsbc_2 2 2 !!====================================================================== 3 !! *** MODULE limsbc ***3 !! *** MODULE limsbc_2 *** 4 4 !! computation of the flux at the sea ice/ocean interface 5 5 !!====================================================================== … … 8 8 !! 06-07 (G. Madec) surface module 9 9 !!---------------------------------------------------------------------- 10 #if defined key_ ice_lim11 !!---------------------------------------------------------------------- 12 !! 'key_ ice_lim' LIMsea-ice model13 !!---------------------------------------------------------------------- 14 !!---------------------------------------------------------------------- 15 !! lim_sbc : flux at the ice / ocean interface10 #if defined key_lim2 11 !!---------------------------------------------------------------------- 12 !! 'key_lim2' LIM 2.0 sea-ice model 13 !!---------------------------------------------------------------------- 14 !!---------------------------------------------------------------------- 15 !! lim_sbc_2 : flux at the ice / ocean interface 16 16 !!---------------------------------------------------------------------- 17 17 USE par_oce ! ocean parameters … … 22 22 USE ocfzpt ! surface ocean freezing point 23 23 USE ice_oce ! sea-ice variable 24 USE ice 25 USE iceini 24 USE ice_2 ! LIM sea-ice variables 25 USE iceini_2 ! ??? 26 26 USE dynspg_oce ! choice of the surface pressure gradient scheme 27 27 … … 34 34 PRIVATE 35 35 36 PUBLIC lim_sbc ! called by lim_step36 PUBLIC lim_sbc_2 ! called by sbc_ice_lim_2 37 37 38 38 REAL(wp) :: epsi16 = 1.e-16 ! constant values … … 44 44 !!---------------------------------------------------------------------- 45 45 !! LIM 2.0, UCL-LOCEAN-IPSL (2006) 46 !! $ Header: $46 !! $ Id: $ 47 47 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 48 48 !!---------------------------------------------------------------------- … … 50 50 CONTAINS 51 51 52 SUBROUTINE lim_sbc ( kt )52 SUBROUTINE lim_sbc_2( kt ) 53 53 !!------------------------------------------------------------------- 54 !! *** ROUTINE lim_sbc ***54 !! *** ROUTINE lim_sbc_2 *** 55 55 !! 56 56 !! ** Purpose : Update surface ocean boundary condition over areas … … 96 96 IF( kt == nit000 ) THEN 97 97 IF(lwp) WRITE(numout,*) 98 IF(lwp) WRITE(numout,*) 'lim_sbc : LIMsea-ice - surface boundary condition'99 IF(lwp) WRITE(numout,*) '~~~~~~~ '98 IF(lwp) WRITE(numout,*) 'lim_sbc_2 : LIM 2.0 sea-ice - surface boundary condition' 99 IF(lwp) WRITE(numout,*) '~~~~~~~~~ ' 100 100 ENDIF 101 101 … … 241 241 ENDIF 242 242 243 END SUBROUTINE lim_sbc 243 END SUBROUTINE lim_sbc_2 244 244 245 245 #else 246 246 !!---------------------------------------------------------------------- 247 !! Default option : Dummy module NO LIMsea-ice model247 !! Default option : Dummy module NO LIM 2.0 sea-ice model 248 248 !!---------------------------------------------------------------------- 249 249 CONTAINS 250 SUBROUTINE lim_sbc ! Dummy routine251 END SUBROUTINE lim_sbc 250 SUBROUTINE lim_sbc_2 ! Dummy routine 251 END SUBROUTINE lim_sbc_2 252 252 #endif 253 253 254 254 !!====================================================================== 255 END MODULE limsbc 255 END MODULE limsbc_2
Note: See TracChangeset
for help on using the changeset viewer.