- Timestamp:
- 2016-05-20T11:10:37+02:00 (8 years ago)
- Location:
- branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
-
sbc_oce.F90 (modified) (2 diffs)
-
sbcmod.F90 (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r6140 r6583 30 30 !!---------------------------------------------------------------------- 31 31 ! !!* namsbc namelist * 32 LOGICAL , PUBLIC :: ln_ana !: analytical boundary condition flag33 LOGICAL , PUBLIC :: ln_flx !: flux formulation34 LOGICAL , PUBLIC :: ln_blk_clio !: CLIO bulk formulation35 LOGICAL , PUBLIC :: ln_blk_core !: CORE bulk formulation36 LOGICAL , PUBLIC :: ln_blk_mfs !: MFS bulk formulation32 LOGICAL , PUBLIC :: ln_ana !: user defined formulation 33 LOGICAL , PUBLIC :: ln_flx !: flux formulation 34 LOGICAL , PUBLIC :: ln_blk_clio !: CLIO bulk formulation 35 LOGICAL , PUBLIC :: ln_blk_core !: CORE bulk formulation 36 LOGICAL , PUBLIC :: ln_blk_mfs !: MFS bulk formulation 37 37 #if defined key_oasis3 38 38 LOGICAL , PUBLIC :: lk_oasis = .TRUE. !: OASIS used … … 72 72 !! switch definition (improve readability) 73 73 !!---------------------------------------------------------------------- 74 INTEGER , PUBLIC, PARAMETER :: jp_gyre = 0 !: GYRE analytical formulation 75 INTEGER , PUBLIC, PARAMETER :: jp_ana = 1 !: analytical formulation 74 INTEGER , PUBLIC, PARAMETER :: jp_ana = 1 !: user defined formulation 76 75 INTEGER , PUBLIC, PARAMETER :: jp_flx = 2 !: flux formulation 77 76 INTEGER , PUBLIC, PARAMETER :: jp_clio = 3 !: CLIO bulk formulation -
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r6351 r6583 28 28 USE sbcdcy ! surface boundary condition: diurnal cycle 29 29 USE sbcssm ! surface boundary condition: sea-surface mean variables 30 USE sbcana ! surface boundary condition: analytical formulation31 30 USE sbcflx ! surface boundary condition: flux formulation 32 31 USE sbcblk_clio ! surface boundary condition: bulk formulation : CLIO … … 38 37 USE sbcice_cice ! surface boundary condition: CICE sea-ice model 39 38 USE sbccpl ! surface boundary condition: coupled florulation 39 USE usrdef_sbc ! user defined: surface boundary condition 40 40 USE cpl_oasis3 ! OASIS routines for coupling 41 41 USE sbcssr ! surface boundary condition: sea surface restoring … … 120 120 IF( lk_cice ) nn_ice = 4 121 121 ENDIF 122 IF( cp_cfg == 'gyre' ) THEN ! GYRE configuration123 ln_ana = .TRUE.124 nn_ice = 0125 ENDIF126 122 ! 127 123 IF(lwp) THEN ! Control print … … 129 125 WRITE(numout,*) ' frequency update of sbc (and ice) nn_fsbc = ', nn_fsbc 130 126 WRITE(numout,*) ' Type of air-sea fluxes : ' 131 WRITE(numout,*) ' analytical formulationln_ana = ', ln_ana132 WRITE(numout,*) ' flux formulationln_flx = ', ln_flx133 WRITE(numout,*) ' CLIO bulk formulationln_blk_clio = ', ln_blk_clio134 WRITE(numout,*) ' CORE bulk formulationln_blk_core = ', ln_blk_core135 WRITE(numout,*) ' MFS bulk formulationln_blk_mfs = ', ln_blk_mfs127 WRITE(numout,*) ' user defined formulation ln_ana = ', ln_ana 128 WRITE(numout,*) ' flux formulation ln_flx = ', ln_flx 129 WRITE(numout,*) ' CLIO bulk formulation ln_blk_clio = ', ln_blk_clio 130 WRITE(numout,*) ' CORE bulk formulation ln_blk_core = ', ln_blk_core 131 WRITE(numout,*) ' MFS bulk formulation ln_blk_mfs = ', ln_blk_mfs 136 132 WRITE(numout,*) ' Type of coupling (Ocean/Ice/Atmosphere) : ' 137 133 WRITE(numout,*) ' ocean-atmosphere coupled formulation ln_cpl = ', ln_cpl … … 160 156 SELECT CASE ( nn_limflx ) ! LIM3 Multi-category heat flux formulation 161 157 CASE ( -1 ) ; WRITE(numout,*) ' LIM3: use per-category fluxes (nn_limflx = -1) ' 162 CASE ( 0) ; WRITE(numout,*) ' LIM3: use average per-category fluxes (nn_limflx = 0) '163 CASE ( 1) ; WRITE(numout,*) ' LIM3: use average then redistribute per-category fluxes (nn_limflx = 1) '164 CASE ( 2) ; WRITE(numout,*) ' LIM3: Redistribute a single flux over categories (nn_limflx = 2) '158 CASE ( 0 ) ; WRITE(numout,*) ' LIM3: use average per-category fluxes (nn_limflx = 0) ' 159 CASE ( 1 ) ; WRITE(numout,*) ' LIM3: use average then redistribute per-category fluxes (nn_limflx = 1) ' 160 CASE ( 2 ) ; WRITE(numout,*) ' LIM3: Redistribute a single flux over categories (nn_limflx = 2) ' 165 161 END SELECT 166 162 ENDIF … … 224 220 ! 225 221 icpt = 0 226 IF( ln_ana ) THEN ; nsbc = jp_ana ; icpt = icpt + 1 ; ENDIF ! analyticalformulation222 IF( ln_ana ) THEN ; nsbc = jp_ana ; icpt = icpt + 1 ; ENDIF ! user defined formulation 227 223 IF( ln_flx ) THEN ; nsbc = jp_flx ; icpt = icpt + 1 ; ENDIF ! flux formulation 228 224 IF( ln_blk_clio ) THEN ; nsbc = jp_clio ; icpt = icpt + 1 ; ENDIF ! CLIO bulk formulation … … 230 226 IF( ln_blk_mfs ) THEN ; nsbc = jp_mfs ; icpt = icpt + 1 ; ENDIF ! MFS bulk formulation 231 227 IF( ll_purecpl ) THEN ; nsbc = jp_purecpl ; icpt = icpt + 1 ; ENDIF ! Pure Coupled formulation 232 IF( cp_cfg == 'gyre') THEN ; nsbc = jp_gyre ; ENDIF ! GYRE analytical formulation233 228 IF( nn_components == jp_iam_opa ) & 234 229 & THEN ; nsbc = jp_none ; icpt = icpt + 1 ; ENDIF ! opa coupling via SAS module … … 239 234 WRITE(numout,*) 240 235 SELECT CASE( nsbc ) 241 CASE( jp_gyre ) ; WRITE(numout,*) ' GYRE analytical formulation' 242 CASE( jp_ana ) ; WRITE(numout,*) ' analytical formulation' 236 CASE( jp_ana ) ; WRITE(numout,*) ' user defined formulation' 243 237 CASE( jp_flx ) ; WRITE(numout,*) ' flux formulation' 244 238 CASE( jp_clio ) ; WRITE(numout,*) ' CLIO bulk formulation' … … 337 331 SELECT CASE( nsbc ) ! Compute ocean surface boundary condition 338 332 ! ! (i.e. utau,vtau, qns, qsr, emp, sfx) 339 CASE( jp_gyre ) ; CALL sbc_gyre ( kt ) ! analytical formulation : GYRE configuration 340 CASE( jp_ana ) ; CALL sbc_ana ( kt ) ! analytical formulation : uniform sbc 333 CASE( jp_ana ) ; CALL usr_def_sbc ( kt ) ! user defined formulation 341 334 CASE( jp_flx ) ; CALL sbc_flx ( kt ) ! flux formulation 342 335 CASE( jp_clio ) ; CALL sbc_blk_clio( kt ) ! bulk formulation : CLIO for the ocean
Note: See TracChangeset
for help on using the changeset viewer.
