- Timestamp:
- 2019-08-06T17:59:22+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/BDY
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/BDY/bdydta.F90
r11348 r11413 415 415 bf_alias => bf(jp_bdyssh,jbdy:jbdy) ! alias for ssh structure of bdy number jbdy 416 416 bn_alias => bn_ssh ! alias for ssh structure of nambdy_dta 417 iszdim = idx_bdy(jbdy)%nblenrim(igrd) ! length of this bdy on this MPI processus : onlyrim417 iszdim = idx_bdy(jbdy)%nblenrim(igrd) ! length of this bdy on this MPI processus : used only on the rim 418 418 ENDIF 419 419 ! ===================== … … 427 427 llread = .NOT. ln_full_vel .AND. MOD(nn_dyn2d_dta(jbdy),2) == 1 ! don't get u2d from u3d and read NetCDF file 428 428 bf_alias => bf(jp_bdyu2d,jbdy:jbdy) ! alias for u2d structure of bdy number jbdy 429 bn_alias => bn_u2d ! alias for u2d structure of nambdy_dta 430 iszdim = idx_bdy(jbdy)%nblenrim(igrd) ! length of this bdy on this MPI processus : only rim 429 bn_alias => bn_u2d ! alias for u2d structure of nambdy_dta 430 IF( ln_full_vel ) THEN ; iszdim = idx_bdy(jbdy)%nblen(igrd) ! will be computed from u3d -> need on the full bdy 431 ELSE ; iszdim = idx_bdy(jbdy)%nblenrim(igrd) ! used only on the rim 432 ENDIF 431 433 ENDIF 432 434 IF( jfld == jp_bdyv2d ) THEN … … 438 440 bf_alias => bf(jp_bdyv2d,jbdy:jbdy) ! alias for v2d structure of bdy number jbdy 439 441 bn_alias => bn_v2d ! alias for v2d structure of nambdy_dta 440 iszdim = idx_bdy(jbdy)%nblenrim(igrd) ! length of this bdy on this MPI processus : only rim 442 IF( ln_full_vel ) THEN ; iszdim = idx_bdy(jbdy)%nblen(igrd) ! will be computed from v3d -> need on the full bdy 443 ELSE ; iszdim = idx_bdy(jbdy)%nblenrim(igrd) ! used only on the rim 444 ENDIF 441 445 ENDIF 442 446 ! ===================== -
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/BDY/bdyini.F90
r11348 r11413 386 386 387 387 CALL bdy_read_seg( ib_bdy, nblendta(:,ib_bdy) ) 388 ! Now look for crossings in user (namelist) defined open boundary segments:389 IF( nbdysege > 0 .OR. nbdysegw > 0 .OR. nbdysegn > 0 .OR. nbdysegs > 0) CALL bdy_ctl_seg390 388 391 389 ELSE ! Read size of arrays in boundary coordinates file. … … 400 398 ! 401 399 END DO ! ib_bdy 400 401 ! Now look for crossings in user (namelist) defined open boundary segments: 402 IF( nbdysege > 0 .OR. nbdysegw > 0 .OR. nbdysegn > 0 .OR. nbdysegs > 0) CALL bdy_ctl_seg 402 403 403 404 ! Allocate arrays … … 1188 1189 &(jpjnob(ib).le.1)) CALL ctl_stop( 'nbdyind out of domain' ) 1189 1190 IF (jpindt(ib).ge.jpinft(ib)) CALL ctl_stop( 'Bdy start index is greater than end index' ) 1190 IF (jpindt(ib).l e.1 ) CALL ctl_stop( 'Start index out of domain' )1191 IF (jpinft(ib).g e.jpiglo) CALL ctl_stop( 'End index out of domain' )1191 IF (jpindt(ib).lt.1 ) CALL ctl_stop( 'Start index out of domain' ) 1192 IF (jpinft(ib).gt.jpiglo) CALL ctl_stop( 'End index out of domain' ) 1192 1193 END DO 1193 1194 ! … … 1197 1198 &(jpjsob(ib).le.1)) CALL ctl_stop( 'nbdyind out of domain' ) 1198 1199 IF (jpisdt(ib).ge.jpisft(ib)) CALL ctl_stop( 'Bdy start index is greater than end index' ) 1199 IF (jpisdt(ib).l e.1 ) CALL ctl_stop( 'Start index out of domain' )1200 IF (jpisft(ib).g e.jpiglo) CALL ctl_stop( 'End index out of domain' )1200 IF (jpisdt(ib).lt.1 ) CALL ctl_stop( 'Start index out of domain' ) 1201 IF (jpisft(ib).gt.jpiglo) CALL ctl_stop( 'End index out of domain' ) 1201 1202 END DO 1202 1203 ! … … 1206 1207 &(jpieob(ib).le.1)) CALL ctl_stop( 'nbdyind out of domain' ) 1207 1208 IF (jpjedt(ib).ge.jpjeft(ib)) CALL ctl_stop( 'Bdy start index is greater than end index' ) 1208 IF (jpjedt(ib).l e.1 ) CALL ctl_stop( 'Start index out of domain' )1209 IF (jpjeft(ib).g e.jpjglo) CALL ctl_stop( 'End index out of domain' )1209 IF (jpjedt(ib).lt.1 ) CALL ctl_stop( 'Start index out of domain' ) 1210 IF (jpjeft(ib).gt.jpjglo) CALL ctl_stop( 'End index out of domain' ) 1210 1211 END DO 1211 1212 ! … … 1215 1216 &(jpiwob(ib).le.1)) CALL ctl_stop( 'nbdyind out of domain' ) 1216 1217 IF (jpjwdt(ib).ge.jpjwft(ib)) CALL ctl_stop( 'Bdy start index is greater than end index' ) 1217 IF (jpjwdt(ib).l e.1 ) CALL ctl_stop( 'Start index out of domain' )1218 IF (jpjwft(ib).g e.jpjglo) CALL ctl_stop( 'End index out of domain' )1218 IF (jpjwdt(ib).lt.1 ) CALL ctl_stop( 'Start index out of domain' ) 1219 IF (jpjwft(ib).gt.jpjglo) CALL ctl_stop( 'End index out of domain' ) 1219 1220 ENDDO 1220 1221 ! -
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/BDY/bdyvol.F90
r11234 r11413 143 143 ! Check the cumulated transport through unstructured OBC once barotropic velocities corrected 144 144 ! ------------------------------------------------------ 145 IF( MOD( kt, n write ) == 0 .AND. ( kc == 1 ) ) THEN145 IF( MOD( kt, nn_write ) == 0 .AND. ( kc == 1 ) ) THEN 146 146 ! 147 147 ! compute residual transport across boundary
Note: See TracChangeset
for help on using the changeset viewer.