Changeset 465 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2006-05-10T19:38:46+02:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC/OBC
- Files:
-
- 3 edited
-
obc_oce.F90 (modified) (3 diffs)
-
obccli.F90 (modified) (11 diffs)
-
obcdta.F90 (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/OBC/obc_oce.F90
r367 r465 4 4 !! Open Boundary Cond. : define related variables 5 5 !!============================================================================== 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $Header$ 8 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 9 !!---------------------------------------------------------------------- 6 10 #if defined key_obc 7 11 !!---------------------------------------------------------------------- … … 27 31 IMPLICIT NONE 28 32 PUBLIC 29 !!----------------------------------------------------------------------30 !! OPA 9.0 , LOCEAN-IPSL (2005)31 !! $Header$32 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt33 !!----------------------------------------------------------------------34 33 35 34 !!---------------------------------------------------------------------- … … 67 66 ! ! scale are set to 0 in the namelist, for both inflow and outflow). 68 67 69 REAL(wp), DIMENSION(jpi,jpj) :: & !: 70 obctmsk !: mask array identical to tmask, execpt along OBC where it is set to 0 68 REAL(wp), PUBLIC :: & !: 69 obcsurftot !: Total lateral surface of open boundaries 70 71 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: & !: 72 obctmsk, & !: mask array identical to tmask, execpt along OBC where it is set to 0 71 73 ! ! it used to calculate the cumulate flux E-P in the obcvol.F90 routine 72 74 obcumask, obcvmask !: u-, v- Force filtering mask for the open 75 ! ! boundary condition on grad D 76 73 77 !!---------------- 74 78 !! Rigid lid case: -
trunk/NEMO/OPA_SRC/OBC/obccli.F90
r367 r465 1 1 MODULE obccli 2 !!====================================================================== =============2 !!====================================================================== 3 3 !! *** MODULE obccli *** 4 !! Ocean dynamics: Baroclinic componant of velocities on each open boundary 5 !!=================================================================================== 4 !! Ocean dynamics: Baroclinic velocities on each open boundary 5 !!====================================================================== 6 !! History : 7 !! 8.5 ! 02-10 (C. Talandier, A-M. Treguier) Free surface, F90 8 !! 9.0 ! 06-04 (R.Benshila, G. Madec) zco, zps, sco coordinate 9 !!---------------------------------------------------------------------- 6 10 #if defined key_obc && defined key_dynspg_rl 7 !!----------------------------------------------------------------------------------- 8 !! 'key_obc' and 9 !! 'key_dynspg_rl' 10 !!----------------------------------------------------------------------------------- 11 !! obc_cli_dyn : Compute the baroclinic componant after the radiation phase 12 !! obc_cli_dta : Compute the baroclinic componant for the climatological velocities 13 !!----------------------------------------------------------------------------------- 11 !!---------------------------------------------------------------------- 12 !! 'key_obc' and 'key_dynspg_rl' open boundary condition and rigid-lid 13 !!---------------------------------------------------------------------- 14 !! obc_cli_dyn : baroclinic componant after the radiation phase 15 !! obc_cli_dta : baroclinic componant for the climatological velocities 16 !!---------------------------------------------------------------------- 14 17 !! * Modules used 15 18 USE oce ! ocean dynamics and tracers … … 30 33 !! * Substitutions 31 34 # include "domzgr_substitute.h90" 32 !!---------------------------------------------------------------------- -------------35 !!---------------------------------------------------------------------- 33 36 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 37 !! $Header$ 35 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt36 !!---------------------------------------------------------------------- -------------38 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 39 !!---------------------------------------------------------------------- 37 40 38 41 CONTAINS 39 42 40 43 SUBROUTINE obc_cli_dyn( obvel, velcli, obd, obf, obtyp, obl) 41 !!---------------------------------------------------------------------- ----------44 !!---------------------------------------------------------------------- 42 45 !! *** SUBROUTINE obc_cli_dyn *** 43 46 !! … … 51 54 !! - obl is the lenght of the OB (jpi or jpj) 52 55 !! 53 !! History : 54 !! 8.5 ! 02-10 (C. Talandier, A-M. Treguier) Free surface, F90 55 !!-------------------------------------------------------------------------------- 56 !!----------------------------------------------------------------------- 56 57 !! * Arguments 57 58 INTEGER, INTENT( in ) :: & ! OB localization:jpieob or jpiwob for East or West … … 74 75 zmskob, & ! Velocity mask 75 76 zvel ! 2D Local velocity on OB 76 # if defined key_partial_steps77 77 REAL(wp), DIMENSION(obl,jpk) :: & 78 78 ze3ob ! Vertical scale factor 79 # else80 REAL(wp), DIMENSION(jpk) :: &81 ze3ob ! Vertical scale factor82 # endif83 79 !!-------------------------------------------------------------------------------- 84 80 … … 86 82 ! ----------------------- 87 83 88 zhinv (:)= 0.e084 zhinv (:) = 0.e0 89 85 zmskob(:,:) = 0.e0 90 zvel(:,:) = 0.e0 91 # if defined key_partial_steps 92 ze3ob(:,:) = 0.e0 93 # else 94 ze3ob(:) = 0.e0 95 # endif 86 zvel (:,:) = 0.e0 87 ze3ob (:,:) = 0.e0 96 88 97 89 IF( obtyp == 0 ) THEN ! Meridional Open Boundary ( East or West OB ) 98 90 DO ji = obd, obf 99 zhinv (:) = hur(ji,:)91 zhinv (:) = hur (ji,:) 100 92 zmskob(:,:) = umask(ji,:,:) 101 zvel(:,:) = obvel(ji,:,:) 102 # if defined key_partial_steps 103 ze3ob(:,:) = fse3u(ji,:,:) 104 # else 105 ze3ob(:) = fse3u(:,:,:) 106 # endif 93 zvel (:,:) = obvel(ji,:,:) 94 ze3ob (:,:) = fse3u(ji,:,:) 107 95 END DO 108 96 ELSE ! Zonal Open Boundary ( North or South OB ) 109 97 DO jj = obd, obf 110 zhinv (:) = hvr(:,jj)98 zhinv (:) = hvr (:,jj) 111 99 zmskob(:,:) = vmask(:,jj,:) 112 zvel(:,:) = obvel(:,jj,:) 113 # if defined key_partial_steps 114 ze3ob(:,:) = fse3v(:,jj,:) 115 # else 116 ze3ob(:) = fse3v(:,:,:) 117 # endif 100 zvel (:,:) = obvel(:,jj,:) 101 ze3ob (:,:) = fse3v(:,jj,:) 118 102 END DO 119 103 END IF 120 104 121 zvelbtpe(:) = 0.e0122 105 123 106 ! 1. vertical sum 124 107 ! ---------------- 125 # if defined key_vectopt_loop 108 zvelbtpe(1) = 0.e0 126 109 !CDIR NOLOOPCHG 127 # endif 128 DO jol = obd, obf ! Vector opt. 129 DO jk = 1, jpkm1 130 DO jle = 1, obl 131 zvelbtpe(jle) = zvelbtpe(jle) + zvel(jle,jk)*zmskob(jle,jk) & 132 # if defined key_partial_steps 133 * ze3ob(jol,jle,jk) 134 # else 135 * ze3ob(jk) 136 # endif 137 END DO 110 DO jk = 1, jpkm1 111 DO jle = 1, obl 112 zvelbtpe(jle) = zvelbtpe(jle) + zvel(jle,jk) * zmskob(jle,jk) * ze3ob(jle,jk) 138 113 END DO 139 114 END DO … … 141 116 ! 2. divide by the depth 142 117 ! ----------------------- 143 DO jle = 1, obl 144 zvelbtpe(jle) = zvelbtpe(jle) * zhinv(jle) * zmskob(jle,1) 145 END DO 118 zvelbtpe(:) = zvelbtpe(:) * zhinv(:) * zmskob(:,1) 146 119 147 120 ! 3. substract zvelbtpe to the total velocity … … 149 122 ! ------------------------------------------------ 150 123 DO jk = 1, jpkm1 151 DO jle = 1, obl 152 zcbl = zvel(jle,jk) - zvelbtpe(jle)*zmskob(jle,jk) 153 velcli(jle,jk) = zcbl * zmskob(jle,jk) 154 END DO 124 velcli(:,jk) = ( zvel(:,jk) - zvelbtpe(:) ) * zmskob(:,jk) 155 125 END DO 156 126 … … 172 142 !! - obl is the lenght of the OB (jpi or jpj) 173 143 !! 174 !! History :175 !! 8.5 ! 02-10 (C. Talandier, A-M. Treguier) Free surface, F90176 144 !!-------------------------------------------------------------------------------- 177 145 !! * Arguments … … 195 163 REAL(wp), DIMENSION(obl,jpk) :: & 196 164 zmskob ! Velocity mask 197 # if defined key_partial_steps198 165 REAL(wp), DIMENSION(obl,jpk) :: & 199 166 ze3ob ! Vertical scale factor 200 # else201 REAL(wp), DIMENSION(jpk) :: &202 ze3ob ! Vertical scale factor203 # endif204 167 !!-------------------------------------------------------------------------------- 205 168 … … 207 170 ! ----------------------- 208 171 209 zhinv (:)= 0.e0172 zhinv (:) = 0.e0 210 173 zmskob(:,:) = 0.e0 211 # if defined key_partial_steps 212 ze3ob(:,:) = 0.e0 213 # else 214 ze3ob(:) = 0.e0 215 # endif 174 ze3ob (:,:) = 0.e0 216 175 217 176 IF( obtyp == 0 ) THEN ! Meridional Open Boundary ( East or West OB ) 218 177 DO ji = obd, obf 219 zhinv (:) = hur(ji,:)178 zhinv (:) = hur (ji,:) 220 179 zmskob(:,:) = umask(ji,:,:) 221 # if defined key_partial_steps 222 ze3ob(:,:) = fse3u(ji,:,:) 223 # else 224 ze3ob(:) = fse3u(:,:,:) 225 # endif 180 ze3ob (:,:) = fse3u(ji,:,:) 226 181 END DO 227 182 ELSE ! Zonal Open Boundary ( North or South OB ) 228 183 DO jj = obd, obf 229 zhinv (:) = hvr(:,jj)184 zhinv (:) = hvr (:,jj) 230 185 zmskob(:,:) = vmask(:,jj,:) 231 # if defined key_partial_steps 232 ze3ob(:,:) = fse3v(:,jj,:) 233 # else 234 ze3ob(:) = fse3v(:,:,:) 235 # endif 186 ze3ob (:,:) = fse3v(:,jj,:) 236 187 END DO 237 188 END IF 238 239 zvelbtpe(:) = 0.e0240 189 241 190 ! 1. vertical sum 242 191 ! ---------------- 243 # if defined key_vectopt_loop 192 zvelbtpe(1) = 0.e0 244 193 !CDIR NOLOOPCHG 245 # endif 246 DO jol = obd, obf ! Vector opt. 247 DO jk = 1, jpkm1 248 DO jle = 1, obl 249 ij = jle -1 + mpp 250 zvelbtpe(jle) = zvelbtpe(jle) + obvel(ij,jk,1)*zmskob(jle,jk) & 251 # if defined key_partial_steps 252 * ze3ob(jol,jle,jk) 253 # else 254 * ze3ob(jk) 255 # endif 256 END DO 194 DO jk = 1, jpkm1 195 DO jle = 1, obl 196 ij = jle -1 + mpp 197 zvelbtpe(jle) = zvelbtpe(jle) + obvel(ij,jk,1)*zmskob(jle,jk) * ze3ob(jle,jk) 257 198 END DO 258 199 END DO … … 260 201 ! 2. divide by the depth 261 202 ! ----------------------- 262 DO jle = 1, obl 263 zvelbtpe(jle) = zvelbtpe(jle) * zhinv(jle) * zmskob(jle,1) 264 END DO 203 zvelbtpe(:) = zvelbtpe(:) * zhinv(:) * zmskob(:,1) 265 204 266 205 ! 3. substract zvelbtpe to the total velocity -
trunk/NEMO/OPA_SRC/OBC/obcdta.F90
r418 r465 4 4 !! Open boundary data : read the data for the open boundaries. 5 5 !!============================================================================== 6 !! History : 7 !! ! 98-05 (J.M. Molines) Original code 8 !! 8.5 ! 02-10 (C. Talandier, A-M. Treguier) Free surface, F90 9 !! 9.0 ! 04-06 (F. Durand, A-M. Treguier) Netcdf BC files on input 10 !!------------------------------------------------------------------------------ 6 11 #if defined key_obc 7 12 !!------------------------------------------------------------------------------ … … 22 27 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 23 28 USE ioipsl 24 # if defined key_dynspg_rl 25 USE obccli 26 # endif 29 USE obccli ! climatological obc, use only in rigid-lid case 27 30 28 31 IMPLICIT NONE … … 53 56 CONTAINS 54 57 55 SUBROUTINE obc_dta (kt)58 SUBROUTINE obc_dta( kt ) 56 59 !!-------------------------------------------------------------------- 57 60 !! *** SUBROUTINE obc_dta *** 58 61 !! 59 !! ** Purpose : 60 !! Find the climatological boundary arrays for the specified date, 62 !! ** Purpose : Find the climatological boundary arrays for the specified date, 61 63 !! The boundary arrays are netcdf files. Three possible cases: 62 64 !! - one time frame only in the file (time dimension = 1). … … 70 72 !! attribute of variable time_counter). 71 73 !! 72 !! History :73 !! ! 98-05 (J.M. Molines) Original code74 !! 8.5 ! 02-10 (C. Talandier, A-M. Treguier) Free surface, F9075 !! 9.0 ! 04-06 (F. Durand, A-M. Treguier) Netcdf BC files on input76 74 !!-------------------------------------------------------------------- 77 75 !! * Arguments … … 96 94 97 95 IF( lk_dynspg_rl ) THEN 98 CALL obc_dta_psi (kt) ! update bsf data at open boundaries99 IF( nobc_dta == 1 .AND. kt == nit000 ) 96 CALL obc_dta_psi( kt ) ! update bsf data at open boundaries 97 IF( nobc_dta == 1 .AND. kt == nit000 ) THEN 100 98 IF(lwp) WRITE(numout,*) ' time-variable psi boundary data not allowed yet' 101 99 STOP … … 103 101 ENDIF 104 102 105 CALL ipslnlf (new_number=numout)103 CALL ipslnlf( new_number=numout ) 106 104 107 105 ! 1. First call: check time frames available in files. … … 1179 1177 !! Default option 1180 1178 !!----------------------------------------------------------------------------- 1181 SUBROUTINE obc_dta_bt ( kt, kbt ) ! Empty routine 1182 !! * Arguments 1183 INTEGER,INTENT(in) :: kt 1184 INTEGER, INTENT( in ) :: kbt ! barotropic ocean time-step index 1185 WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt 1186 WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kbt 1179 SUBROUTINE obc_dta_bt( kt, kbt ) ! Empty routine 1180 INTEGER,INTENT(in) :: kt, kbt 1181 WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt, kbt 1187 1182 END SUBROUTINE obc_dta_bt 1188 1183 #endif
Note: See TracChangeset
for help on using the changeset viewer.
