New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12248 – NEMO

Changeset 12248


Ignore:
Timestamp:
2019-12-13T17:33:53+01:00 (4 years ago)
Author:
smasson
Message:

trunk : clean useless warnings in fldread

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/fldread.F90

    r11536 r12248  
    865865         zh  = SUM(pdta_read_dz(jb,1,:) ) 
    866866         ! 
    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 ) THEN 
    871                WRITE(ctmp1,"(I10.10)") jb  
    872                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, jj 
    874             ENDIF 
    875          CASE(2) 
    876             IF( ABS( (zh - hu_n(ji,jj)) * r1_hu_n(ji,jj)) * umask(ji,jj,1) > 0.01_wp ) THEN 
    877                WRITE(ctmp1,"(I10.10)") jb  
    878                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             ENDIF 
    882          CASE(3) 
    883             IF( ABS( (zh - hv_n(ji,jj)) * r1_hv_n(ji,jj)) * vmask(ji,jj,1) > 0.01_wp ) THEN 
    884                WRITE(ctmp1,"(I10.10)") jb 
    885                CALL ctl_warn('fld_bdy_interp: V depths differ between grids at BDY point '//TRIM(ctmp1)//' by more than 1%') 
    886             ENDIF 
    887          END SELECT 
    888          ! 
    889867         SELECT CASE( kgrd )                          
    890868         CASE(1) 
Note: See TracChangeset for help on using the changeset viewer.