Changeset 895 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2008-04-21T17:32:02+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r888 r895 137 137 ! Compute aeiw by multiplying Ro^2 and T^-1 138 138 aeiw(ji,jj) = zross(ji,jj) * zross(ji,jj) * SQRT( zah(ji,jj) / zhw(ji,jj) ) * tmask(ji,jj,1) 139 IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN ! ORCA R02 139 END DO 140 END DO 141 142 IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN ! ORCA R02 143 DO jj = 2, jpjm1 144 !CDIR NOVERRCHK 145 DO ji = fs_2, fs_jpim1 ! vector opt. 140 146 ! Take the minimum between aeiw and aeiv0 for depth levels 141 147 ! lower than 20 (21 in w- point) 142 148 IF( mbathy(ji,jj) <= 21. ) aeiw(ji,jj) = MIN( aeiw(ji,jj), 1000. ) 143 END IF144 END DO 145 END DO149 END DO 150 END DO 151 ENDIF 146 152 147 153 ! Decrease the coefficient in the tropics (20N-20S)
Note: See TracChangeset
for help on using the changeset viewer.