Changeset 15688
- Timestamp:
- 2022-02-03T14:42:42+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/BDY/bdytides.F90
r15683 r15688 152 152 ! 153 153 ! SSH fields 154 IF( ASSOCIATED(dta%ssh) ) THEN ! we use bdy ssh on this mpi subdomain155 154 clfile = TRIM(filtide)//'_grid_T.nc' 156 155 CALL iom_open( clfile , inum ) … … 159 158 CALL iom_get( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_z1', ztr(:,:) ) 160 159 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 161 161 DO ib = 1, SIZE(dta%ssh) 162 162 ii = idx_bdy(ib_bdy)%nbi(ib,igrd) … … 165 165 td%ssh0(ib,itide,2) = zti(ii,ij) 166 166 END DO 167 ENDIF 167 168 END DO 168 169 CALL iom_close( inum ) 169 END IF170 170 ! 171 171 ! U fields 172 IF( ASSOCIATED(dta%u2d) ) THEN ! we use bdy u2d on this mpi subdomain173 172 clfile = TRIM(filtide)//'_grid_U.nc' 174 173 CALL iom_open( clfile , inum ) … … 177 176 CALL iom_get ( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_u1', ztr(:,:) ) 178 177 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 179 179 DO ib = 1, SIZE(dta%u2d) 180 180 ii = idx_bdy(ib_bdy)%nbi(ib,igrd) … … 183 183 td%u0(ib,itide,2) = zti(ii,ij) 184 184 END DO 185 END IF 185 186 END DO 186 CALL iom_close( inum ) 187 END IF 187 CALL iom_close( inum ) 188 188 ! 189 189 ! V fields 190 IF( ASSOCIATED(dta%v2d) ) THEN ! we use bdy v2d on this mpi subdomain191 190 clfile = TRIM(filtide)//'_grid_V.nc' 192 191 CALL iom_open( clfile , inum ) … … 195 194 CALL iom_get ( inum, jpdom_autoglo, TRIM(Wave(ntide(itide))%cname_tide)//'_v1', ztr(:,:) ) 196 195 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 197 197 DO ib = 1, SIZE(dta%v2d) 198 198 ii = idx_bdy(ib_bdy)%nbi(ib,igrd) … … 201 201 td%v0(ib,itide,2) = zti(ii,ij) 202 202 END DO 203 END IF 203 204 END DO 204 CALL iom_close( inum ) 205 END IF 205 CALL iom_close( inum ) 206 206 ! 207 207 DEALLOCATE( ztr, zti )
Note: See TracChangeset
for help on using the changeset viewer.