- Timestamp:
- 2017-11-23T05:57:50+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r8059 r8790 398 398 #endif 399 399 ! end jchanut tschanges 400 401 402 !JT use sshn (ssh now) if ln_ssh_bdy set to false in the name list 403 DO ib_bdy = 1, nb_bdy 404 nblen => idx_bdy(ib_bdy)%nblen 405 dta => dta_bdy(ib_bdy) 406 407 ilen1(:) = nblen(:) 408 !JT IF( .NOT. dta%ll_ssh ) THEN 409 IF( .NOT. ln_ssh_bdy(ib_bdy) ) THEN 410 igrd = 1 ! t Grid 411 DO ib = 1, ilen1(igrd) 412 ii = idx_bdy(ib_bdy)%nbi(ib,igrd) 413 ij = idx_bdy(ib_bdy)%nbj(ib,igrd) 414 dta_bdy(ib_bdy)%ssh(ib) = sshn(ii,ij) * tmask(ii,ij,1) 415 END DO 416 END IF 417 END DO 400 418 401 419 IF ( ln_apr_obc ) THEN … … 786 804 IF( dta%ll_v2d ) ALLOCATE( dta%v2d(nblen(3)) ) 787 805 ENDIF 788 IF ( nn_dyn2d_dta(ib_bdy) .eq. 1 .or. nn_dyn2d_dta(ib_bdy) .eq. 3 ) THEN 789 IF( dta%ll_ssh ) THEN 790 if(lwp) write(numout,*) '++++++ dta%ssh pointing to fnow' 791 jfld = jfld + 1 792 dta%ssh => bf(jfld)%fnow(:,1,1) 793 ENDIF 806 IF ( nn_dyn2d_dta(ib_bdy) .eq. 1 .or. nn_dyn2d_dta(ib_bdy) .eq. 3 ) THEN 807 !JT 808 !JT allocate ssh if dta%ll_ssh set too false, as may still use it 809 IF (dta%ll_ssh) THEN 810 IF( dta%ll_ssh ) THEN 811 if(lwp) write(numout,*) '++++++ dta%ssh pointing to fnow' 812 jfld = jfld + 1 813 dta%ssh => bf(jfld)%fnow(:,1,1) 814 ENDIF 815 ELSE 816 if(lwp) write(numout,*) '++++++ dta%ssh allocated space' 817 !ALLOCATE( dta_bdy(ib_bdy)%ssh(nblen(1)) ) 818 ALLOCATE( dta%ssh(nblen(1)) ) 819 ENDIF 820 !JT if 821 794 822 IF ( dta%ll_u2d ) THEN 795 823 IF ( ln_full_vel_array(ib_bdy) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.