Changeset 12750


Ignore:
Timestamp:
2020-04-15T18:38:50+02:00 (6 months ago)
Author:
jcastill
Message:

Comment some excessive warnings

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  
    397397 
    398398   SUBROUTINE dyn_limit_velocity (kt)  
    399       ! limits maxming vlaues of un and vn by volume courant number  
     399      ! limits maximum values of un and vn by volume courant number  
    400400      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index  
    401401      !  
     
    447447         ENDDO  
    448448      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. ) 
    450450  
    451451    END SUBROUTINE dyn_limit_velocity 
  • NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/SBC/fldread.F90

    r12558 r12750  
    873873         ! 
    874874         ! 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 ) 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 
     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 ) 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 
    895895         ! 
    896896         SELECT CASE( kgrd )                          
Note: See TracChangeset for help on using the changeset viewer.