Changeset 1606 for trunk/NEMO/TOP_SRC/TRP/trcbbl.F90
- Timestamp:
- 2009-08-11T15:33:19+02:00 (15 years ago)
- File:
-
- 1 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
Note: See TracChangeset
for help on using the changeset viewer.