- Timestamp:
- 2015-05-18T17:19:50+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r4990 r5282 174 174 END DO 175 175 END DO 176 IF( nn_cla == 1 ) THEN ! Cross Land advection177 il0 = 138 ; il1 = 138 ! set T & S profile at Gibraltar Strait178 ij0 = 101 ; ij1 = 102179 ii0 = 139 ; ii1 = 139180 DO jl = mi0(il0), mi1(il1)181 DO jj = mj0(ij0), mj1(ij1)182 DO ji = mi0(ii0), mi1(ii1)183 sf_tsd(jp_tem)%fnow(ji,jj,:) = sf_tsd(jp_tem)%fnow(jl,jj,:)184 sf_tsd(jp_sal)%fnow(ji,jj,:) = sf_tsd(jp_sal)%fnow(jl,jj,:)185 END DO186 END DO187 END DO188 il0 = 164 ; il1 = 164 ! set T & S profile at Bab el Mandeb Strait189 ij0 = 87 ; ij1 = 88190 ii0 = 161 ; ii1 = 163191 DO jl = mi0(il0), mi1(il1)192 DO jj = mj0(ij0), mj1(ij1)193 DO ji = mi0(ii0), mi1(ii1)194 sf_tsd(jp_tem)%fnow(ji,jj,:) = sf_tsd(jp_tem)%fnow(jl,jj,:)195 sf_tsd(jp_sal)%fnow(ji,jj,:) = sf_tsd(jp_sal)%fnow(jl,jj,:)196 END DO197 END DO198 END DO199 ELSE ! No Cross Land advection200 176 ij0 = 87 ; ij1 = 96 ! Reduced temperature in Red Sea 201 177 ii0 = 148 ; ii1 = 160 … … 203 179 sf_tsd(jp_tem)%fnow( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 11:13 ) = 6.5_wp 204 180 sf_tsd(jp_tem)%fnow( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) , 14:20 ) = 6.0_wp 205 ENDIF206 181 ENDIF 207 182 !
Note: See TracChangeset
for help on using the changeset viewer.