Changeset 3097 for branches/2011/dev_LOCEAN_CMCC_2011
- Timestamp:
- 2011-11-14T16:58:22+01:00 (13 years ago)
- Location:
- branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/CONFIG/GYRE/EXP00/namelist
r3092 r3097 323 323 rn_shlat = 0. ! shlat = 0 ! 0 < shlat < 2 ! shlat = 2 ! 2 < shlat 324 324 ! free slip ! partial slip ! no slip ! strong slip 325 ln_vorlat = .false. ! consistency of vorticity boundary condition with analytical eqs. 325 326 / 326 327 !----------------------------------------------------------------------- … … 514 515 ln_dynvor_mix = .false. ! mixed scheme 515 516 ln_dynvor_een = .false. ! energy & enstrophy scheme 516 ln_dynvor_con = .false. ! consistency of BC with analytical eqs.517 517 / 518 518 !----------------------------------------------------------------------- -
branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist
r3092 r3097 323 323 rn_shlat = 2. ! shlat = 0 ! 0 < shlat < 2 ! shlat = 2 ! 2 < shlat 324 324 ! free slip ! partial slip ! no slip ! strong slip 325 ln_vorlat = .false. ! consistency of vorticity boundary condition with analytical eqs. 325 326 / 326 327 !----------------------------------------------------------------------- … … 514 515 ln_dynvor_mix = .false. ! mixed scheme 515 516 ln_dynvor_een = .true. ! energy & enstrophy scheme 516 ln_dynvor_con = .false. ! consistency of BC with analytical eqs.517 517 / 518 518 !----------------------------------------------------------------------- -
branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist
r3092 r3097 323 323 rn_shlat = 2. ! shlat = 0 ! 0 < shlat < 2 ! shlat = 2 ! 2 < shlat 324 324 ! free slip ! partial slip ! no slip ! strong slip 325 ln_vorlat = .false. ! consistency of vorticity boundary condition with analytical eqs. 325 326 / 326 327 !----------------------------------------------------------------------- … … 514 515 ln_dynvor_mix = .false. ! mixed scheme 515 516 ln_dynvor_een = .true. ! energy & enstrophy scheme 516 ln_dynvor_con = .false. ! consistency of BC with analytical eqs.517 517 / 518 518 !----------------------------------------------------------------------- -
branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/CONFIG/POMME/EXP00/namelist
r3092 r3097 323 323 rn_shlat = 2. ! shlat = 0 ! 0 < shlat < 2 ! shlat = 2 ! 2 < shlat 324 324 ! free slip ! partial slip ! no slip ! strong slip 325 ln_vorlat = .false. ! consistency of vorticity boundary condition with analytical eqs. 325 326 / 326 327 !----------------------------------------------------------------------- … … 514 515 ln_dynvor_mix = .false. ! mixed scheme 515 516 ln_dynvor_een = .true. ! energy & enstrophy scheme 516 ln_dynvor_con = .false. ! consistency of BC with analytical eqs.517 517 / 518 518 !----------------------------------------------------------------------- -
branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r3095 r3097 38 38 39 39 ! !!* Namelist namlbc : lateral boundary condition * 40 REAL(wp) :: rn_shlat = 2. ! type of lateral boundary condition on velocity 40 REAL(wp) :: rn_shlat = 2. ! type of lateral boundary condition on velocity 41 LOGICAL, PUBLIC :: ln_vorlat = .false. ! consistency of vorticity boundary condition 42 ! with analytical eqs. 43 41 44 42 45 INTEGER, ALLOCATABLE, SAVE, DIMENSION(:,:) :: icoord ! Workspace for dom_msk_nsa() … … 133 136 INTEGER :: ijf, ijl, ij0, ij1 ! - - 134 137 !! 135 NAMELIST/namlbc/ rn_shlat 138 NAMELIST/namlbc/ rn_shlat, ln_vorlat 136 139 !!--------------------------------------------------------------------- 137 140 … … 148 151 WRITE(numout,*) '~~~~~~' 149 152 WRITE(numout,*) ' Namelist namlbc' 150 WRITE(numout,*) ' lateral momentum boundary cond. rn_shlat = ',rn_shlat 153 WRITE(numout,*) ' lateral momentum boundary cond. rn_shlat = ',rn_shlat 154 WRITE(numout,*) ' consistency with analytical form ln_vorlat = ',ln_vorlat 151 155 ENDIF 152 156 -
branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r3095 r3097 23 23 !! vor_mix : mixed enstrophy/energy conserving (ln_dynvor_mix=T) 24 24 !! vor_een : energy and enstrophy conserving (ln_dynvor_een=T) 25 !! vor_con : BC consistent with analytical eqs.(ln_dynvor_con=T)26 25 !! dyn_vor_init : set and control of the different vorticity option 27 26 !!---------------------------------------------------------------------- 28 27 USE oce ! ocean dynamics and tracers 29 28 USE dom_oce ! ocean space and time domain 29 USE dommsk ! ocean mask 30 30 USE dynadv ! momentum advection (use ln_dynadv_vec value) 31 31 USE trdmod ! ocean dynamics trends … … 47 47 LOGICAL, PUBLIC :: ln_dynvor_mix = .FALSE. !: mixed scheme 48 48 LOGICAL, PUBLIC :: ln_dynvor_een = .FALSE. !: energy and enstrophy conserving scheme 49 LOGICAL, PUBLIC :: ln_dynvor_con = .FALSE. !: consistency with flux form50 49 51 50 INTEGER :: nvor = 0 ! type of vorticity trend used … … 694 693 INTEGER :: ioptio ! local integer 695 694 !! 696 NAMELIST/namdyn_vor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een , ln_dynvor_con695 NAMELIST/namdyn_vor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een 697 696 !!---------------------------------------------------------------------- 698 697 … … 709 708 WRITE(numout,*) ' mixed enstrophy/energy conserving scheme ln_dynvor_mix = ', ln_dynvor_mix 710 709 WRITE(numout,*) ' enstrophy and energy conserving scheme ln_dynvor_een = ', ln_dynvor_een 711 WRITE(numout,*) ' consistency with flux form ln_dynvor_con = ', ln_dynvor_con712 710 ENDIF 713 711 714 712 ! If energy, enstrophy or mixed advection of momentum in vector form change the value for masks 715 713 ! at angles with three ocean points and one land point 716 IF( ln_ dynvor_con.AND. (ln_dynvor_ene .OR. ln_dynvor_ens .OR. ln_dynvor_mix) ) THEN714 IF( ln_vorlat .AND. (ln_dynvor_ene .OR. ln_dynvor_ens .OR. ln_dynvor_mix) ) THEN 717 715 DO jj = 2, jpjm1 718 716 DO ji = 2, jpim1
Note: See TracChangeset
for help on using the changeset viewer.