- Timestamp:
- 2019-12-14T13:46:52+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/fldread.F90
r12246 r12251 598 598 zh = SUM(pdta_read_dz(jb,1,:) ) 599 599 ! 600 ! Warnings to flag differences in the input and model topgraphy - is this useful/necessary?601 SELECT CASE( kgrd )602 CASE(1)603 IF( ABS( (zh - ht_n(ji,jj)) / ht_n(ji,jj)) * tmask(ji,jj,1) > 0.01_wp ) THEN604 WRITE(ctmp1,"(I10.10)") jb605 CALL ctl_warn('fld_bdy_interp: T depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')606 ! IF(lwp) WRITE(numout,*) 'DEPTHT', zh, sum(e3t_n(ji,jj,:), mask=tmask(ji,jj,:)==1), ht_n(ji,jj), jb, jb, ji, jj607 ENDIF608 CASE(2)609 IF( ABS( (zh - hu_n(ji,jj)) * r1_hu_n(ji,jj)) * umask(ji,jj,1) > 0.01_wp ) THEN610 WRITE(ctmp1,"(I10.10)") jb611 CALL ctl_warn('fld_bdy_interp: U depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')612 ! IF(lwp) WRITE(numout,*) 'DEPTHU', zh, SUM(e3u_n(ji,jj,:), mask=umask(ji,jj,:)==1), SUM(umask(ji,jj,:)), &613 ! & hu_n(ji,jj), jb, jb, ji, jj, narea-1, pdta_read(jb,1,:)614 ENDIF615 CASE(3)616 IF( ABS( (zh - hv_n(ji,jj)) * r1_hv_n(ji,jj)) * vmask(ji,jj,1) > 0.01_wp ) THEN617 WRITE(ctmp1,"(I10.10)") jb618 CALL ctl_warn('fld_bdy_interp: V depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')619 ENDIF620 END SELECT621 !622 600 SELECT CASE( kgrd ) 623 601 CASE(1)
Note: See TracChangeset
for help on using the changeset viewer.