Changeset 12750
- Timestamp:
- 2020-04-15T18:38:50+02:00 (5 years ago)
- Location:
- NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/DYN/dynnxt.F90
r12554 r12750 397 397 398 398 SUBROUTINE dyn_limit_velocity (kt) 399 ! limits max ming vlaues of un and vn by volume courant number399 ! limits maximum values of un and vn by volume courant number 400 400 INTEGER, INTENT( in ) :: kt ! ocean time-step index 401 401 ! … … 447 447 ENDDO 448 448 ENDDO 449 CALL lbc_lnk_multi( 'dynnxt', un(:,:,:), 'U', -1., vn(:,:,:), 'V', -1. )449 ! CALL lbc_lnk_multi( 'dynnxt', un(:,:,:), 'U', -1., vn(:,:,:), 'V', -1. ) 450 450 451 451 END SUBROUTINE dyn_limit_velocity -
NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/fldread.F90
r12558 r12750 873 873 ! 874 874 ! Warnings to flag differences in the input and model topgraphy - is this useful/necessary? 875 SELECT CASE( kgrd )876 CASE(1)877 IF( ABS( (zh - ht_n(ji,jj)) / ht_n(ji,jj)) * tmask(ji,jj,1) > 0.01_wp ) THEN878 WRITE(ctmp1,"(I10.10)") jb879 CALL ctl_warn('fld_bdy_interp: T depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')880 ! IF(lwp) WRITE(numout,*) 'DEPTHT', zh, sum(e3t_n(ji,jj,:), mask=tmask(ji,jj,:)==1), ht_n(ji,jj), jb, jb, ji, jj881 ENDIF882 CASE(2)883 IF( ABS( (zh - hu_n(ji,jj)) * r1_hu_n(ji,jj)) * umask(ji,jj,1) > 0.01_wp ) THEN884 WRITE(ctmp1,"(I10.10)") jb885 CALL ctl_warn('fld_bdy_interp: U depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')886 ! IF(lwp) WRITE(numout,*) 'DEPTHU', zh, SUM(e3u_n(ji,jj,:), mask=umask(ji,jj,:)==1), SUM(umask(ji,jj,:)), &887 ! & hu_n(ji,jj), jb, jb, ji, jj, narea-1, pdta_read(jb,1,:)888 ENDIF889 CASE(3)890 IF( ABS( (zh - hv_n(ji,jj)) * r1_hv_n(ji,jj)) * vmask(ji,jj,1) > 0.01_wp ) THEN891 WRITE(ctmp1,"(I10.10)") jb892 CALL ctl_warn('fld_bdy_interp: V depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%')893 ENDIF894 END SELECT875 ! SELECT CASE( kgrd ) 876 ! CASE(1) 877 ! IF( ABS( (zh - ht_n(ji,jj)) / ht_n(ji,jj)) * tmask(ji,jj,1) > 0.01_wp ) THEN 878 ! WRITE(ctmp1,"(I10.10)") jb 879 ! CALL ctl_warn('fld_bdy_interp: T depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%') 880 ! ! IF(lwp) WRITE(numout,*) 'DEPTHT', zh, sum(e3t_n(ji,jj,:), mask=tmask(ji,jj,:)==1), ht_n(ji,jj), jb, jb, ji, jj 881 ! ENDIF 882 ! CASE(2) 883 ! IF( ABS( (zh - hu_n(ji,jj)) * r1_hu_n(ji,jj)) * umask(ji,jj,1) > 0.01_wp ) THEN 884 ! WRITE(ctmp1,"(I10.10)") jb 885 ! CALL ctl_warn('fld_bdy_interp: U depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%') 886 ! ! IF(lwp) WRITE(numout,*) 'DEPTHU', zh, SUM(e3u_n(ji,jj,:), mask=umask(ji,jj,:)==1), SUM(umask(ji,jj,:)), & 887 ! ! & hu_n(ji,jj), jb, jb, ji, jj, narea-1, pdta_read(jb,1,:) 888 ! ENDIF 889 ! CASE(3) 890 ! IF( ABS( (zh - hv_n(ji,jj)) * r1_hv_n(ji,jj)) * vmask(ji,jj,1) > 0.01_wp ) THEN 891 ! WRITE(ctmp1,"(I10.10)") jb 892 ! CALL ctl_warn('fld_bdy_interp: V depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%') 893 ! ENDIF 894 ! END SELECT 895 895 ! 896 896 SELECT CASE( kgrd )
Note: See TracChangeset
for help on using the changeset viewer.