Changeset 9656 for NEMO/trunk/src/OCE/SBC
- Timestamp:
- 2018-05-28T11:53:14+02:00 (6 years ago)
- Location:
- NEMO/trunk/src/OCE/SBC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbc_ice.F90
r9654 r9656 2 2 !!====================================================================== 3 3 !! *** MODULE sbc_ice *** 4 !! Surface module - LIM-3: parameters & variables defined in memory4 !! Surface module - SI3 & CICE: parameters & variables defined in memory 5 5 !!====================================================================== 6 !! History : 3.0 ! 2006-08 (G. Madec) Surface module 7 !! 3.2 ! 2009-06 (S. Masson) merge with ice_oce 8 !! 3.3.1! 2011-01 (A. R. Porter, STFC Daresbury) dynamical allocation 9 !! 3.4 ! 2011-11 (C. Harris) CICE added as an option 6 !! History : 3.0 ! 2006-08 (G. Madec) Surface module 7 !! 3.2 ! 2009-06 (S. Masson) merge with ice_oce 8 !! 3.3.1 ! 2011-01 (A. R. Porter, STFC Daresbury) dynamical allocation 9 !! 3.4 ! 2011-11 (C. Harris) CICE added as an option 10 !! 4.0 ! 2018 (many people) SI3 compatibility 10 11 !!---------------------------------------------------------------------- 11 12 #if defined key_si3 || defined key_cice … … 16 17 USE sbc_oce ! surface boundary condition: ocean 17 18 # if defined key_si3 18 USE ice ! LIM-3 parameters19 USE ice ! SI3 parameters 19 20 # endif 20 21 # if defined key_cice … … 30 31 31 32 # if defined key_si3 32 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .TRUE. !: LIM-3 ice model33 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .TRUE. !: SI3 ice model 33 34 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .FALSE. !: no CICE 34 35 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = 'C' !: 'C'-grid ice-velocity 35 36 # endif 36 37 # if defined key_cice 37 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no LIM-338 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no SI3 38 39 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .TRUE. !: CICE ice model 39 40 CHARACTER(len=1), PUBLIC :: cp_ice_msh = 'F' !: 'F'-grid ice-velocity … … 76 77 #if defined key_cice 77 78 ! 78 ! for consistency with LIM, these are declared with three dimensions79 ! for consistency with SI3, these are declared with three dimensions 79 80 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: qlw_ice !: incoming long-wave 80 81 ! … … 93 94 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: u_ice, v_ice ! jpi, jpj 94 95 95 ! already defined in ice.F90 for LIM396 ! already defined in ice.F90 for SI3 96 97 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_i 97 98 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: h_i, h_s … … 167 168 PUBLIC sbc_ice_alloc ! 168 169 169 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no LIM-3 ice model170 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .FALSE. !: no CICE 170 LOGICAL , PUBLIC, PARAMETER :: lk_si3 = .FALSE. !: no SI3 ice model 171 LOGICAL , PUBLIC, PARAMETER :: lk_cice = .FALSE. !: no CICE ice model 171 172 CHARACTER(len=1), PUBLIC, PARAMETER :: cp_ice_msh = '-' !: no grid ice-velocity 172 173 REAL(wp) , PUBLIC, PARAMETER :: cldf_ice = 0.81 !: cloud fraction over sea ice, summer CLIO value [-] -
NEMO/trunk/src/OCE/SBC/sbcblk.F90
r9598 r9656 535 535 ! 536 536 #if defined key_si3 537 qns_oce(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:) ! non solar without emp (only needed by LIM3)537 qns_oce(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:) ! non solar without emp (only needed by SI3) 538 538 qsr_oce(:,:) = qsr(:,:) 539 539 #endif … … 834 834 REAL(wp), DIMENSION(jpi,jpj,jpl) :: z_dqlw ! long wave heat sensitivity over ice 835 835 REAL(wp), DIMENSION(jpi,jpj,jpl) :: z_dqsb ! sensible heat sensitivity over ice 836 REAL(wp), DIMENSION(jpi,jpj) :: zevap, zsnw ! evaporation and snw distribution after wind blowing ( LIM3)836 REAL(wp), DIMENSION(jpi,jpj) :: zevap, zsnw ! evaporation and snw distribution after wind blowing (SI3) 837 837 REAL(wp), DIMENSION(jpi,jpj) :: zrhoa 838 838 !!--------------------------------------------------------------------- -
NEMO/trunk/src/OCE/SBC/sbcflx.F90
r9598 r9656 71 71 !! - emp upward mass flux (evap. - precip.) 72 72 !! - sfx salt flux; set to zero at nit000 but possibly non-zero 73 !! if ice is present (computed in limsbc(_2).F90)73 !! if ice is present 74 74 !!---------------------------------------------------------------------- 75 75 INTEGER, INTENT(in) :: kt ! ocean time step … … 120 120 CALL fld_fill( sf, slf_i, cn_dir, 'sbc_flx', 'flux formulation for ocean surface boundary condition', 'namsbc_flx' ) 121 121 ! 122 sfx(:,:) = 0.0_wp ! salt flux due to freezing/melting (non-zero only if ice is present ; set in limsbc(_2).F90)122 sfx(:,:) = 0.0_wp ! salt flux due to freezing/melting (non-zero only if ice is present) 123 123 ! 124 124 ENDIF -
NEMO/trunk/src/OCE/SBC/sbcmod.F90
r9654 r9656 34 34 USE sbcice_if ! surface boundary condition: ice-if sea-ice model 35 35 #if defined key_si3 36 USE icestp ! surface boundary condition: LIM 3.0sea-ice model36 USE icestp ! surface boundary condition: SI3 sea-ice model 37 37 #endif 38 USE sbcice_cice ! surface boundary condition: CICE 38 USE sbcice_cice ! surface boundary condition: CICE sea-ice model 39 39 USE sbcisf ! surface boundary condition: ice-shelf 40 40 USE sbccpl ! surface boundary condition: coupled formulation … … 216 216 CASE( 0 ) !- no ice in the domain 217 217 CASE( 1 ) !- Ice-cover climatology ("Ice-if" model) 218 CASE( 2 ) !- LIM3ice model218 CASE( 2 ) !- SI3 ice model 219 219 CASE( 3 ) !- CICE ice model 220 220 IF( .NOT.( ln_blk .OR. ln_cpl ) ) CALL ctl_stop( 'sbc_init : CICE sea-ice model requires ln_blk or ln_cpl = T' ) … … 427 427 CASE( 1 ) ; CALL sbc_ice_if ( kt ) ! Ice-cover climatology ("Ice-if" model) 428 428 #if defined key_si3 429 CASE( 2 ) ; CALL ice_stp ( kt, nsbc ) ! LIM-3 ice model429 CASE( 2 ) ; CALL ice_stp ( kt, nsbc ) ! SI3 ice model 430 430 #endif 431 431 CASE( 3 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model
Note: See TracChangeset
for help on using the changeset viewer.