Changeset 3795
- Timestamp:
- 2013-02-11T10:29:31+01:00 (11 years ago)
- Location:
- branches/2012/dev_MERGE_2012
- Files:
-
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/DOC/TexFiles/Chapters/Chap_SBC.tex
r3699 r3795 756 756 as inverse barometer sea surface height is usually removed from these date prior to their distribution. 757 757 758 When using time-splitting and BDY package for open boundaries conditions, the equivalent 759 inverse barometer sea surface height $\eta_{ib}$ can be added to BDY ssh data: 760 \np{ln\_apr\_obc} might be set to true. 761 758 762 % ================================================================ 759 763 % Tidal Potential -
branches/2012/dev_MERGE_2012/DOC/TexFiles/Namelist/namsbc_apr
r2540 r3795 8 8 cn_dir = './' ! root directory for the location of the bulk files 9 9 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 10 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 10 11 / -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/AMM12/EXP00/namelist
r3764 r3795 304 304 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 305 305 306 cn_dir = './' ! root directory for the location of the bulk files 307 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 306 cn_dir = './' ! root directory for the location of the bulk files 307 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 308 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 309 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 308 310 / 309 311 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/GYRE/EXP00/namelist
r3764 r3795 305 305 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 306 306 307 cn_dir = './' ! root directory for the location of the bulk files 308 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 307 cn_dir = './' ! root directory for the location of the bulk files 308 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 309 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 310 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 309 311 / 310 312 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/GYRE_BFM/EXP00/namelist
r3764 r3795 286 286 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 287 287 288 cn_dir = './' ! root directory for the location of the bulk files 289 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 288 cn_dir = './' ! root directory for the location of the bulk files 289 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 290 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 291 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 290 292 / 291 293 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist
r3764 r3795 279 279 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 280 280 281 cn_dir = './' ! root directory for the location of the bulk files 282 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 281 cn_dir = './' ! root directory for the location of the bulk files 282 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 283 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 284 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 283 285 / 284 286 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist
r3764 r3795 305 305 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 306 306 307 cn_dir = './' ! root directory for the location of the bulk files 308 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 307 cn_dir = './' ! root directory for the location of the bulk files 308 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 309 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 310 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 309 311 / 310 312 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/EXP00/1_namelist
r3764 r3795 266 266 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 267 267 268 cn_dir = './' ! root directory for the location of the bulk files 269 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 268 cn_dir = './' ! root directory for the location of the bulk files 269 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 270 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 271 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 270 272 / 271 273 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/EXP00/namelist
r3764 r3795 287 287 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 288 288 289 cn_dir = './' ! root directory for the location of the bulk files 290 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 289 cn_dir = './' ! root directory for the location of the bulk files 290 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 291 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 292 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 291 293 / 292 294 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist
r3764 r3795 303 303 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 304 304 305 cn_dir = './' ! root directory for the location of the bulk files 306 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 305 cn_dir = './' ! root directory for the location of the bulk files 306 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 307 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 308 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 307 309 / 308 310 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/1_namelist
r3764 r3795 279 279 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 280 280 281 cn_dir = './' ! root directory for the location of the bulk files 282 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 281 cn_dir = './' ! root directory for the location of the bulk files 282 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 283 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 284 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 283 285 / 284 286 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/namelist
r3764 r3795 302 302 sn_apr = 'patm' , -1 ,'somslpre', .true. , .true. , 'yearly' , '' , '' 303 303 304 cn_dir = './' ! root directory for the location of the bulk files 305 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 304 cn_dir = './' ! root directory for the location of the bulk files 305 rn_pref = 101000._wp ! reference atmospheric pressure [N/m2]/ 306 ln_ref_apr = .false. ! ref. pressure: global mean Patm (T) or a constant (F) 307 ln_apr_obc = .false. ! inverse barometer added to OBC ssh data 306 308 / 307 309 !----------------------------------------------------------------------- -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r3680 r3795 26 26 PUBLIC sbc_apr ! routine called in sbcmod 27 27 28 ! !!* namsbc_apr namelist (Atmospheric PRessure) * 29 LOGICAL, PUBLIC :: ln_apr_obc = .FALSE. !: inverse barometer added to OBC ssh data 30 LOGICAL, PUBLIC :: ln_ref_apr = .FALSE. !: ref. pressure: global mean Patm (F) or a constant (F) 28 ! !!* namsbc_apr namelist (Atmospheric PRessure) * 29 LOGICAL, PUBLIC :: ln_apr_obc = .FALSE. !: inverse barometer added to OBC ssh data 30 LOGICAL, PUBLIC :: ln_ref_apr = .FALSE. !: ref. pressure: global mean Patm (F) or a constant (F) 31 REAL(wp) :: rn_pref = 101000._wp ! reference atmospheric pressure [N/m2] 31 32 32 33 REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) :: ssh_ib ! Inverse barometer now sea surface height [m] … … 34 35 REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) :: apr ! atmospheric pressure at kt [N/m2] 35 36 36 REAL(wp) :: rpref = 101000._wp ! reference atmospheric pressure [N/m2]37 37 REAL(wp) :: tarea ! whole domain mean masked ocean surface 38 38 REAL(wp) :: r1_grau ! = 1.e0 / (grav * rau0) … … 69 69 TYPE(FLD_N) :: sn_apr ! informations about the fields to be read 70 70 !! 71 NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, r pref, ln_apr_obc71 NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rn_pref, ln_apr_obc 72 72 !!---------------------------------------------------------------------- 73 73 ! … … 102 102 ! 103 103 IF( ln_ref_apr ) THEN !* Compute whole inner domain mean masked ocean surface 104 tarea = glob_sum( e1 t(:,:) *e2t(:,:) )104 tarea = glob_sum( e1e2t(:,:) ) 105 105 IF(lwp) WRITE(numout,*) ' Variable ref. Patm computed over a ocean surface of ', tarea*1e-6, 'km2' 106 106 ELSE 107 IF(lwp) WRITE(numout,*) ' Reference Patm used : ', r pref, ' N/m2'107 IF(lwp) WRITE(numout,*) ' Reference Patm used : ', rn_pref, ' N/m2' 108 108 ENDIF 109 109 ! … … 129 129 ! 130 130 ! !* update the reference atmospheric pressure (if necessary) 131 IF( ln_ref_apr ) r pref = glob_sum( sf_apr(1)%fnow(:,:,1) * e1t(:,:) *e2t(:,:) ) / tarea131 IF( ln_ref_apr ) rn_pref = glob_sum( sf_apr(1)%fnow(:,:,1) * e1e2t(:,:) ) / tarea 132 132 ! 133 133 ! !* Patm related forcing at kt 134 ssh_ib(:,:) = - ( sf_apr(1)%fnow(:,:,1) - r pref ) * r1_grau ! equivalent ssh (inverse barometer)134 ssh_ib(:,:) = - ( sf_apr(1)%fnow(:,:,1) - rn_pref ) * r1_grau ! equivalent ssh (inverse barometer) 135 135 apr (:,:) = sf_apr(1)%fnow(:,:,1) ! atmospheric pressure 136 136 !
Note: See TracChangeset
for help on using the changeset viewer.