Changeset 13295 for NEMO/trunk/src/OCE/SBC/fldread.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/fldread.F90
r13286 r13295 1169 1169 WRITE(clname,'(a3,i2.2)') 'src',jn 1170 1170 CALL iom_get ( inum, jpdom_global, clname, data_tmp(:,:), cd_type = 'Z' ) ! no call to lbc_lnk 1171 DO_2D _00_001171 DO_2D( 0, 0, 0, 0 ) 1172 1172 isrc = NINT(data_tmp(ji,jj)) - 1 1173 1173 ref_wgts(nxt_wgt)%data_jpi(ji,jj,jn) = 1 + MOD(isrc, ref_wgts(nxt_wgt)%ddims(1)) … … 1179 1179 WRITE(clname,'(a3,i2.2)') 'wgt',jn 1180 1180 CALL iom_get ( inum, jpdom_global, clname, data_tmp(:,:), cd_type = 'Z' ) ! no call to lbc_lnk 1181 DO_2D _00_001181 DO_2D( 0, 0, 0, 0 ) 1182 1182 ref_wgts(nxt_wgt)%data_wgt(ji,jj,jn) = data_tmp(ji,jj) 1183 1183 END_2D … … 1442 1442 dta(:,:,:) = 0._wp 1443 1443 DO jn = 1,4 1444 DO_3D _00_00(1,ipk )1444 DO_3D( 0, 0, 0, 0, 1,ipk ) 1445 1445 ni = ref_wgts(kw)%data_jpi(ji,jj,jn) + 1 1446 1446 nj = ref_wgts(kw)%data_jpj(ji,jj,jn) + 1 … … 1486 1486 ! 1487 1487 !!$ DO jn = 1,4 1488 !!$ DO_3D _00_00(1,ipk )1488 !!$ DO_3D( 0, 0, 0, 0, 1,ipk ) 1489 1489 !!$ ni = ref_wgts(kw)%data_jpi(ji,jj,jn) + 1 1490 1490 !!$ nj = ref_wgts(kw)%data_jpj(ji,jj,jn) + 1 … … 1504 1504 ! 1505 1505 DO jn = 1,4 1506 DO_3D _00_00(1,ipk )1506 DO_3D( 0, 0, 0, 0, 1,ipk ) 1507 1507 ni = ref_wgts(kw)%data_jpi(ji,jj,jn) 1508 1508 nj = ref_wgts(kw)%data_jpj(ji,jj,jn) … … 1513 1513 END DO 1514 1514 DO jn = 1,4 1515 DO_3D _00_00(1,ipk )1515 DO_3D( 0, 0, 0, 0, 1,ipk ) 1516 1516 ni = ref_wgts(kw)%data_jpi(ji,jj,jn) 1517 1517 nj = ref_wgts(kw)%data_jpj(ji,jj,jn) … … 1522 1522 END DO 1523 1523 DO jn = 1,4 1524 DO_3D _00_00(1,ipk )1524 DO_3D( 0, 0, 0, 0, 1,ipk ) 1525 1525 ni = ref_wgts(kw)%data_jpi(ji,jj,jn) 1526 1526 nj = ref_wgts(kw)%data_jpj(ji,jj,jn)
Note: See TracChangeset
for help on using the changeset viewer.