Changeset 12248 for NEMO/trunk/src/OCE/SBC/fldread.F90
- Timestamp:
- 2019-12-13T17:33:53+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/fldread.F90
r11536 r12248 865 865 zh = SUM(pdta_read_dz(jb,1,:) ) 866 866 ! 867 ! Warnings to flag differences in the input and model topgraphy - is this useful/necessary?868 SELECT CASE( kgrd )869 CASE(1)870 IF( ABS( (zh - ht_n(ji,jj)) / ht_n(ji,jj)) * tmask(ji,jj,1) > 0.01_wp ) THEN871 WRITE(ctmp1,"(I10.10)") jb872 CALL ctl_warn('fld_bdy_interp: T depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')873 ! IF(lwp) WRITE(numout,*) 'DEPTHT', zh, sum(e3t_n(ji,jj,:), mask=tmask(ji,jj,:)==1), ht_n(ji,jj), jb, jb, ji, jj874 ENDIF875 CASE(2)876 IF( ABS( (zh - hu_n(ji,jj)) * r1_hu_n(ji,jj)) * umask(ji,jj,1) > 0.01_wp ) THEN877 WRITE(ctmp1,"(I10.10)") jb878 CALL ctl_warn('fld_bdy_interp: U depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')879 ! IF(lwp) WRITE(numout,*) 'DEPTHU', zh, SUM(e3u_n(ji,jj,:), mask=umask(ji,jj,:)==1), SUM(umask(ji,jj,:)), &880 ! & hu_n(ji,jj), jb, jb, ji, jj, narea-1, pdta_read(jb,1,:)881 ENDIF882 CASE(3)883 IF( ABS( (zh - hv_n(ji,jj)) * r1_hv_n(ji,jj)) * vmask(ji,jj,1) > 0.01_wp ) THEN884 WRITE(ctmp1,"(I10.10)") jb885 CALL ctl_warn('fld_bdy_interp: V depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')886 ENDIF887 END SELECT888 !889 867 SELECT CASE( kgrd ) 890 868 CASE(1)
Note: See TracChangeset
for help on using the changeset viewer.