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 15422 for NEMO/branches/UKMO/r14075_India_uncoupled/src/OCE/SBC/fldread.F90 – NEMO

Ignore:
Timestamp:
2021-10-21T11:19:25+02:00 (3 years ago)
Author:
jcastill
Message:

Changes tested so that they can merged with the CO9 Met Office branch - jpmax_harmo should be 34 with FES14 tides, but the last components are not used anyway

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/r14075_India_uncoupled/src/OCE/SBC/fldread.F90

    r14075 r15422  
    901901            IF(     zdepth(jk) <= pdta_read_z(jb,1,1)      ) THEN   ! above the first level of external data 
    902902               pdta(jb,1,jk) = pdta_read(jb,1,1) 
    903             ELSEIF( zdepth(jk) >  pdta_read_z(jb,1,ipkmax) ) THEN   ! below the last level of external data /= FillValue 
    904                pdta(jb,1,jk) = pdta_read(jb,1,ipkmax) 
     903            ELSEIF( zdepth(jk) > pdta_read_z(jb,1,ipkmax) ) THEN    ! below the last level of external data   
     904               pdta(jb,1,jk) =  pdta_read(jb,1,ipkmax) 
    905905            ELSE                                                    ! inbetween: vertical interpolation between jkb & jkb+1 
    906906               DO jkb = 1, ipkmax-1 
Note: See TracChangeset for help on using the changeset viewer.