- Timestamp:
- 2017-07-04T17:46:48+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/wrk_OMP_test_for_Silvia/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90
r8055 r8279 98 98 ! 99 99 DO jk = 1, jpkm1 100 DO jj = k_Jstr, k_Jend101 DO ji = k_Jstr, k_Iend100 DO jj = tnldj, tnlej 101 DO ji = tnldi, tnlei 102 102 IF( MIN( rn2(ji,jj,jk), rn2b(ji,jj,jk) ) <= -1.e-12 ) THEN 103 103 p_avt(ji,jj,jk) = rn_evd * wmask(ji,jj,jk)
Note: See TracChangeset
for help on using the changeset viewer.