Changeset 6592
- Timestamp:
- 2016-05-20T16:06:01+02:00 (8 years ago)
- Location:
- branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM
- Files:
-
- 4 edited
-
CONFIG/AMM7_SURGE/EXP00/iodef.xml (modified) (1 diff)
-
CONFIG/AMM7_SURGE/EXP00/namelist_cfg (modified) (3 diffs)
-
NEMO/OPA_SRC/SBC/sbc_oce.F90 (modified) (1 diff)
-
NEMO/OPA_SRC/SBC/sbcsurge.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/CONFIG/AMM7_SURGE/EXP00/iodef.xml
r6389 r6592 24 24 25 25 <file_group id="1ts" output_freq="1ts" output_level="10" enabled=".TRUE."/> <!-- 1 time step files --> 26 <file_group id="15m" output_freq="15m" output_level="10" enabled=".TRUE."/> <!-- 1 time step files -->27 26 28 <file_group id="1 h" output_freq="1h" output_level="10" enabled=".TRUE."> <!-- 1hfiles -->27 <file_group id="15mi" output_freq="15mi" output_level="10" enabled=".TRUE."> <!-- 1 time step files --> 29 28 <file id="file4" name_suffix="_grid_T" description="ocean T grid variables" > 30 29 <field field_ref="ssh" name="zos" long_name="sea_surface_height_above_geoid" operation="instant" /> 31 <field field_ref="ssh2" name="zossq" long_name="square_of_sea_surface_height_above_geoid" operation="instant" />32 <field field_ref="taum" />33 30 </file> 34 31 35 32 <file id="file5" name_suffix="_grid_U" description="ocean U grid variables" > 36 <field field_ref=" uoce" name="uo" long_name="sea_water_x_velocity"operation="instant" />37 <field field_ref="utau" name="tauuo" long_name="surface_downward_x_stress"operation="instant" />33 <field field_ref="ssu" name="uos" long_name="sea_water_surface_x_velocity" operation="instant" /> 34 <field field_ref="uwnd" name="uwnd" long_name="u_component_of_wind" operation="instant" /> 38 35 </file> 39 36 40 37 <file id="file6" name_suffix="_grid_V" description="ocean V grid variables" > 41 <field field_ref=" voce" name="vo" long_name="sea_water_y_velocity"operation="instant" />42 <field field_ref="v tau" name="tauvo" long_name="surface_downward_y_stress"operation="instant" />38 <field field_ref="ssv" name="vos" long_name="sea_water_surface_y_velocity" operation="instant" /> 39 <field field_ref="vwnd" name="uwnd" long_name="v_component_of_wind" operation="instant" /> 43 40 </file> 44 41 45 42 </file_group> 46 43 44 45 <file_group id="1h" output_freq="1h" output_level="10" enabled=".TRUE."/> <!-- 1h files --> 47 46 <file_group id="2h" output_freq="2h" output_level="10" enabled=".TRUE."/> <!-- 2h files --> 48 47 <file_group id="3h" output_freq="3h" output_level="10" enabled=".TRUE."/> <!-- 3h files --> -
branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/CONFIG/AMM7_SURGE/EXP00/namelist_cfg
r6518 r6592 7 7 cn_exp = "AMMSURGE" ! experience name 8 8 nn_it000 = 1 ! first time step 9 nn_itend = 105264! last time step (std 1 day = 144)10 nn_date0 = 20 030101 ! date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1)9 nn_itend = 52560 ! last time step (std 1 day = 144) 10 nn_date0 = 20130101 ! date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 11 11 nn_time0 = 0 ! initial time of day in hhmm 12 12 nn_leapy = 1 ! Leap year calendar (1) or not (0) 13 13 ln_rstart = .false. ! start from rest (F) or from a restart file (T) 14 14 nn_euler = 1 ! = 0 : start with forward time step if ln_rstart=.true. 15 cn_ocerst_in = "amm 12_restart_oce" ! suffix of ocean restart name (input)15 cn_ocerst_in = "ammsurge_restart_oce" ! suffix of ocean restart name (input) 16 16 cn_ocerst_out = "restart_oce_out" ! suffix of ocean restart name (input) 17 17 nn_istate = 0 ! output the initial state (1) or not (0) … … 119 119 &namsbc_core ! namsbc_core CORE bulk formulae 120 120 !----------------------------------------------------------------------- 121 ! ! file name ! frequency (hours) ! variable ! time interp. ! clim ! 'yearly'/ ! weights! rotation !122 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename! pairing !121 ! ! file name ! frequency (hours)! variable ! time interp. ! clim ! 'yearly'/ ! weights ! rotation ! 122 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 123 123 sn_wndi = 'CUT_ERAI_INCLUDE_MSLP' , 3 , 'U10' , .true. ,.false. , 'daily' ,'weights_erai_amm7_bicubic.nc', '' ,'CUT_ERAI_LSM.nc' 124 124 sn_wndj = 'CUT_ERAI_INCLUDE_MSLP' , 3 , 'V10' , .true. ,.false. , 'daily' ,'weights_erai_amm7_bicubic.nc', '' ,'CUT_ERAI_LSM.nc' … … 174 174 sn_apr= 'pressure_amm7', 3 , 'p_msl' , .true. , .false., 'daily' , '' , '' , '' 175 175 cn_dir = './fluxes/'! root directory for the location of the bulk files 176 rn_pref = 101 000. ! reference atmospheric pressure [N/m2]/176 rn_pref = 101200. ! reference atmospheric pressure [N/m2]/ 177 177 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 178 178 ln_apr_obc = .true. ! inverse barometer added to OBC ssh data -
branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r6389 r6592 102 102 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: utau , utau_b !: sea surface i-stress (ocean referential) [N/m2] 103 103 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: vtau , vtau_b !: sea surface j-stress (ocean referential) [N/m2] 104 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: uwnd !: wind speed i-component [m2] 105 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: vwnd !: wind speed j-component [m2] 104 106 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: taum !: module of sea surface stress (at T-point) [N/m2] 105 107 !! wndm is used onmpute surface gases exchanges in ice-free ocean or leads -
branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcsurge.F90
r6517 r6592 172 172 DO jj = 2, jpjm1 173 173 DO ji = fs_2, fs_jpim1 ! vect. opt. 174 zwnd_i(ji,jj) = ( sf(jp_wndi)%fnow(ji,jj,1) - rn_vfac * 0.5 * ( pu(ji-1,jj ) + pu(ji,jj) ) )175 zwnd_j(ji,jj) = ( sf(jp_wndj)%fnow(ji,jj,1) - rn_vfac * 0.5 * ( pv(ji ,jj-1) + pv(ji,jj) ) )174 uwnd(ji,jj) = ( sf(jp_wndi)%fnow(ji,jj,1) - rn_vfac * 0.5 * ( pu(ji-1,jj ) + pu(ji,jj) ) ) 175 vwnd(ji,jj) = ( sf(jp_wndj)%fnow(ji,jj,1) - rn_vfac * 0.5 * ( pv(ji ,jj-1) + pv(ji,jj) ) ) 176 176 END DO 177 177 END DO 178 zwnd_i(:,:) = uwnd(:,:) 179 zwnd_j(:,:) = vwnd(:,:) 178 180 CALL lbc_lnk( zwnd_i(:,:) , 'T', -1. ) 179 181 CALL lbc_lnk( zwnd_j(:,:) , 'T', -1. ) … … 217 219 218 220 CALL iom_put( "taum_oce", taum ) ! output wind stress module 221 CALL iom_put( "uwnd", uwnd ) ! output wind stress module 222 CALL iom_put( "vwnd", vwnd ) ! output wind stress module 219 223 220 224 ! ... utau, vtau at U- and V_points, resp.
Note: See TracChangeset
for help on using the changeset viewer.
