Changeset 3276 for branches/2011/dev_NEMO_MERGE_2011
- Timestamp:
- 2012-01-26T18:07:07+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r3231 r3276 457 457 DO jj = 2, jpjm1 458 458 DO ji = fs_2, fs_jpim1 ! vector opt. 459 psi(ji,jj,jk) = e n(ji,jj,jk) * mxln(ji,jj,jk)459 psi(ji,jj,jk) = eb(ji,jj,jk) * mxlb(ji,jj,jk) 460 460 END DO 461 461 END DO … … 475 475 DO jj = 2, jpjm1 476 476 DO ji = fs_2, fs_jpim1 ! vector opt. 477 psi(ji,jj,jk) = SQRT( e n(ji,jj,jk) ) / ( rc0 * mxln(ji,jj,jk) )477 psi(ji,jj,jk) = SQRT( eb(ji,jj,jk) ) / ( rc0 * mxlb(ji,jj,jk) ) 478 478 END DO 479 479 END DO … … 484 484 DO jj = 2, jpjm1 485 485 DO ji = fs_2, fs_jpim1 ! vector opt. 486 psi(ji,jj,jk) = rc02 * e n(ji,jj,jk) * mxln(ji,jj,jk)**rnn486 psi(ji,jj,jk) = rc02 * eb(ji,jj,jk) * mxlb(ji,jj,jk)**rnn 487 487 END DO 488 488 END DO
Note: See TracChangeset
for help on using the changeset viewer.