Changeset 1606 for trunk/NEMO/TOP_SRC
- Timestamp:
- 2009-08-11T15:33:19+02:00 (15 years ago)
- Location:
- trunk/NEMO/TOP_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trcbbl.F90
r1271 r1606 260 260 ! Sign of the local density gradient along the i- and j-slopes 261 261 ! multiplied by the slope of the ocean bottom 262 SELECT CASE ( n eos )262 SELECT CASE ( nn_eos ) 263 263 264 264 CASE ( 0 ) ! Jackett and McDougall (1994) formulation … … 354 354 DO ji = 1, fs_jpim1 ! vector opt. 355 355 ! local density gradient along i-bathymetric slope 356 zgdrho = - ( r beta*( zsnb(ji+1,jj) - zsnb(ji,jj) ) &357 - r alpha*( ztnb(ji+1,jj) - ztnb(ji,jj) ) )356 zgdrho = - ( rn_beta*( zsnb(ji+1,jj) - zsnb(ji,jj) ) & 357 - rn_alpha*( ztnb(ji+1,jj) - ztnb(ji,jj) ) ) 358 358 ! sign of local i-gradient of density multiplied by the i-slope 359 359 zsign = SIGN( 0.5, - zgdrho * ( zdep(ji+1,jj) - zdep(ji,jj) ) ) … … 365 365 DO ji = 1, fs_jpim1 ! vector opt. 366 366 ! local density gradient along j-bathymetric slope 367 zgdrho = - ( r beta*( zsnb(ji,jj+1) - zsnb(ji,jj) ) &368 - r alpha*( ztnb(ji,jj+1) - ztnb(ji,jj) ) )367 zgdrho = - ( rn_beta*( zsnb(ji,jj+1) - zsnb(ji,jj) ) & 368 - rn_alpha*( ztnb(ji,jj+1) - ztnb(ji,jj) ) ) 369 369 ! sign of local j-gradient of density multiplied by the j-slope 370 370 zsign = sign( 0.5, -zgdrho * ( zdep(ji,jj+1) - zdep(ji,jj) ) ) … … 375 375 CASE DEFAULT 376 376 377 WRITE(ctmp1,*) ' bad flag value for n eos = ', neos377 WRITE(ctmp1,*) ' bad flag value for nn_eos = ', nn_eos 378 378 CALL ctl_stop( ctmp1 ) 379 379 -
trunk/NEMO/TOP_SRC/TRP/trcbbl_adv.h90
r1197 r1606 134 134 ! multiplied by the slope of the ocean bottom 135 135 136 SELECT CASE ( n eos )136 SELECT CASE ( nn_eos ) 137 137 138 138 CASE ( 0 ) ! Jackett and McDougall (1994) formulation … … 215 215 DO ji = 1, fs_jpim1 ! vector opt. 216 216 ! local density gradient along i-bathymetric slope 217 zgdrho = - ( r beta*( zsnb(ji+1,jj) - zsnb(ji,jj) ) &218 - r alpha*( ztnb(ji+1,jj) - ztnb(ji,jj) ) )217 zgdrho = - ( rn_beta*( zsnb(ji+1,jj) - zsnb(ji,jj) ) & 218 - rn_alpha*( ztnb(ji+1,jj) - ztnb(ji,jj) ) ) 219 219 ! sign of local i-gradient of density multiplied by the i-slope 220 220 zsign = SIGN( 0.5, - zgdrho * ( zdep(ji+1,jj) - zdep(ji,jj) ) ) … … 227 227 DO ji = 1, fs_jpim1 ! vector opt. 228 228 ! local density gradient along j-bathymetric slope 229 zgdrho = - ( r beta*( zsnb(ji,jj+1) - zsnb(ji,jj) ) &230 - r alpha*( ztnb(ji,jj+1) - ztnb(ji,jj) ) )229 zgdrho = - ( rn_beta*( zsnb(ji,jj+1) - zsnb(ji,jj) ) & 230 - rn_alpha*( ztnb(ji,jj+1) - ztnb(ji,jj) ) ) 231 231 ! sign of local j-gradient of density multiplied by the j-slope 232 232 zsign = SIGN( 0.5, -zgdrho * ( zdep(ji,jj+1) - zdep(ji,jj) ) ) … … 240 240 241 241 IF(lwp) WRITE(numout,cform_err) 242 IF(lwp) WRITE(numout,*) ' bad flag value for n eos = ', neos242 IF(lwp) WRITE(numout,*) ' bad flag value for nn_eos = ', nn_eos 243 243 nstop = nstop + 1 244 244 -
trunk/NEMO/TOP_SRC/oce_trc.F90
r1528 r1606 188 188 !* bottom boundary layer * 189 189 # if defined key_trabbl_dif || defined key_trabbl_adv 190 USE trabbl , ONLY : atrbbl => atrbbl !: lateral coeff. for bottom boundary layer scheme (m2/s)190 USE trabbl , ONLY : atrbbl => rn_ahtbbl !: lateral coeff. for bottom boundary layer scheme (m2/s) 191 191 # if defined key_off_tra 192 192 USE trabbl, ONLY : bblx => bblx !: ???
Note: See TracChangeset
for help on using the changeset viewer.