Changeset 9748 for NEMO/trunk/src/NST/agrif_oce_interp.F90
- Timestamp:
- 2018-06-06T11:51:26+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_oce_interp.F90
r9598 r9748 1237 1237 ! 1238 1238 IF( ABS( ptab(ji,jj,jk) - tmask(ji,jj,jk) * e3t_0(ji,jj,jk) ) > 1.D-2) THEN 1239 IF (western_side ) THEN1239 IF (western_side.AND.(ptab(i1+nbghostcells-1,jj,jk)>0._wp)) THEN 1240 1240 WRITE(numout,*) 'ERROR bathymetry merge at the western border ji,jj,jk ', ji+nimpp-1,jj+njmpp-1,jk 1241 ELSEIF (eastern_side) THEN 1241 WRITE(numout,*) ptab(ji,jj,jk), e3t_0(ji,jj,jk) 1242 kindic_agr = kindic_agr + 1 1243 ELSEIF (eastern_side.AND.(ptab(i2-nbghostcells+1,jj,jk)>0._wp)) THEN 1242 1244 WRITE(numout,*) 'ERROR bathymetry merge at the eastern border ji,jj,jk ', ji+nimpp-1,jj+njmpp-1,jk 1243 ELSEIF (southern_side) THEN 1245 WRITE(numout,*) ptab(ji,jj,jk), e3t_0(ji,jj,jk) 1246 kindic_agr = kindic_agr + 1 1247 ELSEIF (southern_side.AND.(ptab(ji,j1+nbghostcells-1,jk)>0._wp)) THEN 1244 1248 WRITE(numout,*) 'ERROR bathymetry merge at the southern border ji,jj,jk', ji+nimpp-1,jj+njmpp-1,jk 1245 ELSEIF (northern_side) THEN 1249 WRITE(numout,*) ptab(ji,jj,jk), e3t_0(ji,jj,jk) 1250 kindic_agr = kindic_agr + 1 1251 ELSEIF (northern_side.AND.(ptab(ji,j2-nbghostcells+1,jk)>0._wp)) THEN 1246 1252 WRITE(numout,*) 'ERROR bathymetry merge at the northen border ji,jj,jk', ji+nimpp-1,jj+njmpp-1,jk 1253 WRITE(numout,*) ptab(ji,jj,jk), e3t_0(ji,jj,jk) 1254 kindic_agr = kindic_agr + 1 1247 1255 ENDIF 1248 WRITE(numout,*) ' ptab(ji,jj,jk), e3t(ji,jj,jk) ', ptab(ji,jj,jk), e3t_0(ji,jj,jk)1249 kindic_agr = kindic_agr + 11250 1256 ENDIF 1251 1257 END DO
Note: See TracChangeset
for help on using the changeset viewer.