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 15688 – NEMO

Changeset 15688


Ignore:
Timestamp:
2022-02-03T14:42:42+01:00 (2 years ago)
Author:
hadjt
Message:

Bug Fix Juan Castillo's tide fix had an additional change (which I also implemented), which seemed to cause a crash.

This removed the additional change

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/BDY/bdytides.F90

    r15683 r15688  
    152152               ! 
    153153               ! SSH fields 
    154                IF( ASSOCIATED(dta%ssh) ) THEN   ! we use bdy ssh on this mpi subdomain 
    155154                  clfile = TRIM(filtide)//'_grid_T.nc' 
    156155                  CALL iom_open( clfile , inum )  
     
    159158                     CALL iom_get( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_z1', ztr(:,:) ) 
    160159                     CALL iom_get( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_z2', zti(:,:) )  
     160                     IF( ASSOCIATED(dta%ssh) ) THEN   ! we use bdy ssh on this mpi subdomain 
    161161                     DO ib = 1, SIZE(dta%ssh) 
    162162                        ii = idx_bdy(ib_bdy)%nbi(ib,igrd) 
     
    165165                        td%ssh0(ib,itide,2) = zti(ii,ij) 
    166166                     END DO 
     167                     ENDIF 
    167168                  END DO 
    168169                  CALL iom_close( inum ) 
    169                END IF 
    170170               ! 
    171171               ! U fields 
    172                IF( ASSOCIATED(dta%u2d) ) THEN   ! we use bdy u2d on this mpi subdomain 
    173172                  clfile = TRIM(filtide)//'_grid_U.nc' 
    174173                  CALL iom_open( clfile , inum )  
     
    177176                     CALL iom_get  ( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_u1', ztr(:,:) ) 
    178177                     CALL iom_get  ( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_u2', zti(:,:) ) 
     178                     IF( ASSOCIATED(dta%u2d) ) THEN   ! we use bdy u2d on this mpi subdomain 
    179179                     DO ib = 1, SIZE(dta%u2d) 
    180180                        ii = idx_bdy(ib_bdy)%nbi(ib,igrd) 
     
    183183                        td%u0(ib,itide,2) = zti(ii,ij) 
    184184                     END DO 
     185                  END IF 
    185186                  END DO 
    186                   CALL iom_close( inum ) 
    187                END IF 
     187               CALL iom_close( inum ) 
    188188               ! 
    189189               ! V fields 
    190                IF( ASSOCIATED(dta%v2d) ) THEN   ! we use bdy v2d on this mpi subdomain 
    191190                  clfile = TRIM(filtide)//'_grid_V.nc' 
    192191                  CALL iom_open( clfile , inum )  
     
    195194                     CALL iom_get  ( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_v1', ztr(:,:) ) 
    196195                     CALL iom_get  ( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_v2', zti(:,:) ) 
     196                     IF( ASSOCIATED(dta%v2d) ) THEN   ! we use bdy v2d on this mpi subdomain 
    197197                     DO ib = 1, SIZE(dta%v2d) 
    198198                        ii = idx_bdy(ib_bdy)%nbi(ib,igrd) 
     
    201201                        td%v0(ib,itide,2) = zti(ii,ij) 
    202202                     END DO 
     203                  END IF 
    203204                  END DO 
    204                   CALL iom_close( inum ) 
    205                END IF 
     205               CALL iom_close( inum ) 
    206206               ! 
    207207               DEALLOCATE( ztr, zti )  
Note: See TracChangeset for help on using the changeset viewer.