Changeset 14952 for utils/tools/DOMAINcfg
- Timestamp:
- 2021-06-04T17:42:50+02:00 (3 years ago)
- Location:
- utils/tools/DOMAINcfg
- Files:
-
- 6 edited
-
make_namelist.py (modified) (3 diffs)
-
src/agrif_connect.F90 (modified) (3 diffs)
-
src/agrif_recompute_scales.F90 (modified) (1 diff)
-
src/agrif_user.F90 (modified) (10 diffs)
-
src/domhgr.F90 (modified) (1 diff)
-
src/domzgr.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/make_namelist.py
r14690 r14952 43 43 print("Found", len(grid), "grids", ":") 44 44 45 f1="namelist_ ref"45 f1="namelist_cfg" 46 46 47 47 … … 65 65 f2.close() 66 66 67 if int(grid[cnt-1][2]) == 1: 68 nbghostcells_y_s = 0 69 if int(grid[cnt-1][3]) == int(Nj0glo_parent) + 1: 70 nbghostcells_y_n = 0 71 if int(grid[cnt-1][1]) + int(grid[cnt-1][0]) == int(Ni0glo_parent) + 2 : 67 print(int(Ni0glo_parent), int(Nj0glo_parent)) 68 69 if (int(grid[cnt-1][2]) == 2 ): 70 nbghostcells_y_s = 1 71 if int(grid[cnt-1][3]) == int(Nj0glo_parent) : 72 nbghostcells_y_n = 1 73 if int(grid[cnt-1][1]) - int(grid[cnt-1][0]) == int(Ni0glo_parent) : 72 74 nbghostcells_x = 0 75 73 76 Ni0glo = (int(grid[cnt-1][1])-int(grid[cnt-1][0]))*int(grid[cnt-1][4]) + 2*nbghostcells_x 74 77 Nj0glo = (int(grid[cnt-1][3])-int(grid[cnt-1][2]))*int(grid[cnt-1][5]) + nbghostcells_y_n + nbghostcells_y_s 75 78 #print( "Grid "+str(cnt)+" : jpiglo = "+cnt(jpiglo)+ " jpjglo = "+str(jpjglo) ) 79 print(int(grid[cnt-1][0]), int(grid[cnt-1][1]), int(grid[cnt-1][2]),int(grid[cnt-1][3])) 80 print(nbghostcells_x, nbghostcells_y_s, nbghostcells_y_n) 76 81 print('Grid {:1d} : Ni0glo = {:3d} , Nj0glo = {:3d}'.format(cnt, Ni0glo, Nj0glo)) 77 82 … … 83 88 line = fp.readline() 84 89 if line.strip().startswith('jperio'): 85 if int(grid[cnt-1][1]) + int(grid[cnt-1][0]) == int(Ni0glo_parent) + 2:90 if int(grid[cnt-1][1]) - int(grid[cnt-1][0]) == int(Ni0glo_parent): 86 91 line = " jperio = 1\n" 87 92 else: -
utils/tools/DOMAINcfg/src/agrif_connect.F90
r14721 r14952 23 23 CALL agrif_connection() 24 24 ! 25 CALL Agrif_Bc_variable(bottom_level_id, procname = connect_bottom_level)25 ! CALL Agrif_Bc_variable(bottom_level_id, procname = connect_bottom_level) 26 26 ! 27 CALL Agrif_Bc_variable(e3t_copy_id, procname = connect_e3t_copy)27 ! CALL Agrif_Bc_variable(e3t_copy_id, procname = connect_e3t_copy) 28 28 29 29 ALLOCATE(e3t_interp(jpi,jpj,jpk)) … … 174 174 175 175 ALLOCATE(ztabramp(jpi,jpj)) 176 ispongearea = 1 + npt_connect * Agrif_i rhox()177 istart = npt_copy * Agrif_i rhox()176 ispongearea = 1 + npt_connect * Agrif_iRhox() 177 istart = npt_copy * Agrif_iRhox() 178 178 z1_spongearea = 1._wp / REAL( ispongearea, wp ) 179 179 … … 218 218 ENDIF 219 219 220 ispongearea = 1 + npt_connect * Agrif_iRhoy() 221 istart = npt_copy * Agrif_iRhoy() 222 z1_spongearea = 1._wp / REAL( ispongearea, wp ) 223 220 224 ! --- South --- ! 221 225 IF(( (nbondj == -1) .OR. (nbondj == 2) ).AND.(lk_south)) THEN -
utils/tools/DOMAINcfg/src/agrif_recompute_scales.F90
r13204 r14952 39 39 END DO 40 40 END DO 41 IF ( ln_isfcav ) THEN42 ! (ISF) define e3uw (adapted for 2 cells in the water column)43 print *,'NOT READY SINCE:'44 print *,'MBATHY HAS NOT BEEN CORRECTED / UPDATED'45 print *,'EVEN NOT COMPUTED IN THE CASE ln_read_cfg = .TRUE.'46 STOP47 DO jj = 2, jpjm148 DO ji = 2, jpim1 ! vector opt.49 ikb = MAX(mbathy (ji,jj),mbathy (ji+1,jj))50 ikt = MAX(misfdep(ji,jj),misfdep(ji+1,jj))51 IF (ikb == ikt+1) e3uw_0(ji,jj,ikb) = MIN( gdept_0(ji,jj,ikb ), gdept_0(ji+1,jj ,ikb ) ) &52 & - MAX( gdept_0(ji,jj,ikb-1), gdept_0(ji+1,jj ,ikb-1) )53 ikb = MAX(mbathy (ji,jj),mbathy (ji,jj+1))54 ikt = MAX(misfdep(ji,jj),misfdep(ji,jj+1))55 IF (ikb == ikt+1) e3vw_0(ji,jj,ikb) = MIN( gdept_0(ji,jj,ikb ), gdept_0(ji ,jj+1,ikb ) ) &56 & - MAX( gdept_0(ji,jj,ikb-1), gdept_0(ji ,jj+1,ikb-1) )57 END DO58 END DO59 END IF41 ! IF ( ln_isfcav ) THEN 42 ! ! (ISF) define e3uw (adapted for 2 cells in the water column) 43 ! print *,'NOT READY SINCE:' 44 ! print *,'MBATHY HAS NOT BEEN CORRECTED / UPDATED' 45 ! print *,'EVEN NOT COMPUTED IN THE CASE ln_read_cfg = .TRUE.' 46 ! STOP 47 ! DO jj = 2, jpjm1 48 ! DO ji = 2, jpim1 ! vector opt. 49 ! ikb = MAX(mbathy (ji,jj),mbathy (ji+1,jj)) 50 ! ikt = MAX(misfdep(ji,jj),misfdep(ji+1,jj)) 51 ! IF (ikb == ikt+1) e3uw_0(ji,jj,ikb) = MIN( gdept_0(ji,jj,ikb ), gdept_0(ji+1,jj ,ikb ) ) & 52 ! & - MAX( gdept_0(ji,jj,ikb-1), gdept_0(ji+1,jj ,ikb-1) ) 53 ! ikb = MAX(mbathy (ji,jj),mbathy (ji,jj+1)) 54 ! ikt = MAX(misfdep(ji,jj),misfdep(ji,jj+1)) 55 ! IF (ikb == ikt+1) e3vw_0(ji,jj,ikb) = MIN( gdept_0(ji,jj,ikb ), gdept_0(ji ,jj+1,ikb ) ) & 56 ! & - MAX( gdept_0(ji,jj,ikb-1), gdept_0(ji ,jj+1,ikb-1) ) 57 ! END DO 58 ! END DO 59 ! END IF 60 60 61 61 CALL lbc_lnk('toto', e3u_0 , 'U', 1._wp ) ; CALL lbc_lnk('toto', e3uw_0, 'U', 1._wp ) ! lateral boundary conditions -
utils/tools/DOMAINcfg/src/agrif_user.F90
r14720 r14952 105 105 106 106 ! Correct South and North 107 IF ((.not.lk_south).AND.((nbondj == -1).OR.(nbondj == 2))) THEN 108 glamt(:,1+nn_hls) = glamt(:,2+nn_hls) 109 gphit(:,1+nn_hls) = gphit(:,2+nn_hls) 110 glamu(:,1+nn_hls) = glamu(:,2+nn_hls) 111 gphiu(:,1+nn_hls) = gphiu(:,2+nn_hls) 112 ENDIF 113 !South: 107 114 IF ((nbondj == -1).OR.(nbondj == 2)) THEN 108 glamt(:,1) = glamt(:,2) 109 gphit(:,1) = gphit(:,2) 110 glamu(:,1) = glamu(:,2) 111 gphiu(:,1) = gphiu(:,2) 112 glamv(:,1) = glamv(:,2) 113 gphiv(:,1) = gphiv(:,2) 114 ENDIF 115 glamf(:,nn_hls) = glamf(:,1+nn_hls) 116 gphif(:,nn_hls) = gphif(:,1+nn_hls) 117 ENDIF 118 115 119 IF ((nbondj == 1).OR.(nbondj == 2)) THEN 116 120 glamt(:,jpj) = glamt(:,jpj-1) … … 133 137 glamv(1,:) = glamv(2,:) 134 138 gphiv(1,:) = gphiv(2,:) 139 glamf(1,:) = glamf(2,:) 140 gphif(1,:) = gphif(2,:) 135 141 ENDIF 136 142 IF( (nbondi == 1) .OR. (nbondi == 2) ) THEN … … 145 151 ENDIF 146 152 ENDIF 147 153 !South: 154 IF ((nbondj == -1).OR.(nbondj == 2)) THEN 155 glamf(:,1) = glamf(:,2) 156 ENDIF 148 157 CALL agrif_init_scales() 149 158 150 159 ! Correct South and North 151 IF( (nbondj == -1) .OR. (nbondj == 2) ) THEN 152 e1t(:,1) = e1t(:,2) 153 e2t(:,1) = e2t(:,2) 154 e1u(:,1) = e1u(:,2) 155 e2u(:,1) = e2u(:,2) 156 e1v(:,1) = e1v(:,2) 157 e2v(:,1) = e2v(:,2) 160 IF ((.not.lk_south).AND.((nbondj == -1).OR.(nbondj == 2))) THEN 161 e1t(:,1+nn_hls) = e1t(:,2+nn_hls) 162 e2t(:,1+nn_hls) = e2t(:,2+nn_hls) 163 e1u(:,1+nn_hls) = e1u(:,2+nn_hls) 164 e2u(:,1+nn_hls) = e2u(:,2+nn_hls) 158 165 ENDIF 159 166 IF( (nbondj == 1) .OR. (nbondj == 2) ) THEN … … 208 215 INTEGER :: ind1, ind2, ind3 209 216 INTEGER ::nbghostcellsfine_tot_x, nbghostcellsfine_tot_y 210 INTEGER :: iraf x217 INTEGER :: iraf 211 218 212 219 EXTERNAL :: nemo_mapping … … 221 228 nbghostcellsfine_tot_y=max(nbghostcells_y_s,nbghostcells_y_n)+1 222 229 223 iraf x = Agrif_irhox()230 iraf = MAX(Agrif_irhox(), Agrif_irhoy()) 224 231 225 232 ! In case of East-West periodicity, prevent AGRIF interpolation at east and west boundaries … … 352 359 CALL Agrif_Set_bcinterp(e3t_copy_id,interp=AGRIF_constant) 353 360 CALL Agrif_Set_interp(e3t_copy_id,interp=AGRIF_constant) 354 CALL Agrif_Set_bc( e3t_copy_id, (/-npt_copy*iraf x-1,max(nbghostcellsfine_tot_x,nbghostcellsfine_tot_y)-1/))361 CALL Agrif_Set_bc( e3t_copy_id, (/-npt_copy*iraf-1,max(nbghostcellsfine_tot_x,nbghostcellsfine_tot_y)-1/)) 355 362 356 363 ! CALL Agrif_Set_bcinterp(e3t_connect_id,interp=AGRIF_linear) … … 358 365 CALL Agrif_Set_bcinterp(e3t_connect_id,interp=AGRIF_constant) 359 366 CALL Agrif_Set_interp(e3t_connect_id,interp=AGRIF_constant) 360 CALL Agrif_Set_bc( e3t_connect_id, (/-(npt_copy+npt_connect)*irafx-1,-npt_copy*irafx-1/)) 367 ! CALL Agrif_Set_bc( e3t_connect_id, (/-(npt_copy+npt_connect)*iraf-1,-npt_copy*iraf-1/)) 368 CALL Agrif_Set_bc( e3t_connect_id, & 369 & (/-(npt_copy+npt_connect)*iraf-1,max(nbghostcellsfine_tot_x,nbghostcellsfine_tot_y)-1/)) 361 370 362 371 CALL Agrif_Set_bcinterp(e3u_id, interp1=Agrif_linear, interp2=AGRIF_ppm) … … 373 382 CALL Agrif_Set_bcinterp(bottom_level_id,interp=AGRIF_constant) 374 383 CALL Agrif_Set_interp(bottom_level_id,interp=AGRIF_constant) 375 CALL Agrif_Set_bc( bottom_level_id, (/-npt_copy*iraf x-1,max(nbghostcellsfine_tot_x,nbghostcellsfine_tot_y)-1/))384 CALL Agrif_Set_bc( bottom_level_id, (/-npt_copy*iraf-1,max(nbghostcellsfine_tot_x,nbghostcellsfine_tot_y)-1/)) 376 385 CALL Agrif_Set_Updatetype( bottom_level_id, update = AGRIF_Update_Max) 377 386 … … 1105 1114 ! Set the number of ghost cells according to periodicity 1106 1115 1107 nbghostcells_x = nbghostcells1108 nbghostcells_y_s = nbghostcells1109 nbghostcells_y_n = nbghostcells1110 1111 IF ((jperio == 1).OR.(jperio == 4)) THEN1112 nbghostcells_x = 01113 ENDIF1114 IF (jperio == 4) THEN1115 nbghostcells_y_s = 01116 ENDIF1117 1118 1116 IF (.not.agrif_root()) THEN 1119 1117 lk_west = .NOT. ( Agrif_Ix() == 1 ) 1120 1118 lk_east = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) + 1 ) 1121 1119 lk_south = .NOT. ( Agrif_Iy() == 1 ) 1122 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) + 1) 1120 lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) - 1 ) 1121 1122 nbghostcells_x = nbghostcells 1123 nbghostcells_y_s = nbghostcells 1124 nbghostcells_y_n = nbghostcells 1125 1123 1126 IF (.NOT.lk_south) THEN 1124 nbghostcells_y_s = 01127 nbghostcells_y_s = 1 1125 1128 ENDIF 1126 1129 IF (.NOT.lk_north) THEN 1127 nbghostcells_y_n = 0 1130 nbghostcells_y_n = 1 1131 ENDIF 1132 1133 IF ((jperio == 1).OR.(jperio == 4)) THEN 1134 nbghostcells_x = 0 1128 1135 ENDIF 1129 1136 IF(lwp) THEN ! Control print … … 1138 1145 ENDIF 1139 1146 ELSE ! root grid 1140 nbghostcells_x = 0 1141 nbghostcells_y_s = 0 1142 nbghostcells_y_n = 0 1147 nbghostcells_x = 1 1148 nbghostcells_y_s = 1 1149 nbghostcells_y_n = 1 1150 1151 IF ((jperio == 1).OR.(jperio == 4)) THEN 1152 nbghostcells_x = 0 1153 ENDIF 1154 IF (jperio == 4) THEN 1155 nbghostcells_y_n = 0 ! for completeness 1156 ENDIF 1143 1157 ENDIF 1144 1158 -
utils/tools/DOMAINcfg/src/domhgr.F90
r14630 r14952 188 188 ! Position coordinates (in kilometers) 189 189 ! ========== 190 glam0 = 0._wp 191 gphi0 = - ppe2_m * 1.e-3 190 glam0 = - 0.5*ppe1_m * 1.e-3 191 gphi0 = - 0.5*ppe2_m * 1.e-3 192 ! 193 IF ( cp_cfg=='DOME' ) THEN 194 glam0 = glam0 - 1700._wp 195 gphi0 = gphi0 - 800._wp 196 ENDIF 192 197 ! 193 198 DO jj = 1, jpj 194 199 DO ji = 1, jpi 195 glamt(ji,jj) = glam0 + ppe1_m * 1.e-3 * ( REAL( ji - 1 + nimpp - 1 ) )196 glamu(ji,jj) = glam0 + ppe1_m * 1.e-3 * ( REAL( ji - 1 + nimpp - 1 ) + 0.5 )200 glamt(ji,jj) = glam0 + ppe1_m * 1.e-3 * REAL( mig0(ji)-1 ) 201 glamu(ji,jj) = glam0 + ppe1_m * 1.e-3 * REAL( mig0(ji)-0.5 ) 197 202 glamv(ji,jj) = glamt(ji,jj) 198 203 glamf(ji,jj) = glamu(ji,jj) 199 204 ! 200 gphit(ji,jj) = gphi0 + ppe2_m * 1.e-3 * ( REAL( jj - 1 + njmpp - 1 ))205 gphit(ji,jj) = gphi0 + ppe2_m * 1.e-3 * REAL( mjg0(jj) -1 ) 201 206 gphiu(ji,jj) = gphit(ji,jj) 202 gphiv(ji,jj) = gphi0 + ppe2_m * 1.e-3 * ( REAL( jj - 1 + njmpp - 1 ) + 0.5 )207 gphiv(ji,jj) = gphi0 + ppe2_m * 1.e-3 * REAL( mjg0(jj) -0.5 ) 203 208 gphif(ji,jj) = gphiv(ji,jj) 204 209 END DO -
utils/tools/DOMAINcfg/src/domzgr.F90
r14630 r14952 560 560 REAL(wp) :: r_bump , h_bump , h_oce ! bump characteristics 561 561 REAL(wp) :: zi, zj, zh, zhmin ! local scalars 562 INTEGER , ALLOCATABLE, DIMENSION(:,:) :: idta ! global domain integer data563 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zdta ! global domain scalar data564 562 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zrand 565 563 !!---------------------------------------------------------------------- … … 571 569 IF( ntopo == 0 .OR. ntopo == -1 ) THEN ! defined by hand ! 572 570 ! ! ================== ! 573 ! ! global domain level and meter bathymetry (idta,zdta)574 571 ! 575 ALLOCATE( idta(jpiglo,jpjglo), STAT=ierror )576 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'zgr_bat: unable to allocate idta array' )577 ALLOCATE( zdta(jpiglo,jpjglo), zrand(jpiglo,jpjglo), STAT=ierror )578 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'zgr_bat: unable to allocate zdta array' )579 572 ! 580 573 IF( ntopo == 0 ) THEN ! flat basin … … 583 576 IF( rn_bathy > 0.01 ) THEN 584 577 IF(lwp) WRITE(numout,*) ' Depth = rn_bathy read in namelist' 585 zdta(:,:) = rn_bathy586 IF( ln_sco ) THEN ! s-coordinate (zsc ): idta()=jpk587 idta(:,:) = jpkm1578 bathy(:,:) = rn_bathy 579 IF( ln_sco ) THEN ! s-coordinate (zsc ): 580 mbathy(:,:) = jpkm1 588 581 ELSE ! z-coordinate (zco or zps): step-like topography 589 idta(:,:) = jpkm1582 mbathy(:,:) = jpkm1 590 583 DO jk = 1, jpkm1 591 WHERE( gdept_1d(jk) < zdta(:,:) .AND. zdta(:,:) <= gdept_1d(jk+1) ) idta(:,:) = jk584 WHERE( gdept_1d(jk) < bathy(:,:) .AND. bathy(:,:) <= gdept_1d(jk+1) ) mbathy(:,:) = jk 592 585 END DO 593 586 ENDIF 594 587 ELSE 595 588 IF(lwp) WRITE(numout,*) ' Depth = depthw(jpkm1)' 596 idta(:,:) = jpkm1 ! before last level597 zdta(:,:)= gdepw_1d(jpk) ! last w-point depth598 h_oce = gdepw_1d(jpk)589 mbathy(:,:) = jpkm1 ! before last level 590 bathy(:,:) = gdepw_1d(jpk) ! last w-point depth 591 h_oce = gdepw_1d(jpk) 599 592 ENDIF 600 ELSE ! bump centered in the basin593 ELSE ! flat basin with random noise 601 594 IF(lwp) WRITE(numout,*) 602 ! IF(lwp) WRITE(numout,*) ' bathymetry field: flat basin with a bump'603 595 IF(lwp) WRITE(numout,*) ' bathymetry field: flat basin with random noise' 604 ii_bump = jpiglo / 2 ! i-index of the bump center 605 ij_bump = jpjglo / 2 ! j-index of the bump center 606 r_bump = 50000._wp ! bump radius (meters) 607 h_bump = 2700._wp ! bump height (meters) 596 ALLOCATE( zrand(jpiglo,jpjglo), STAT=ierror ) 597 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'zgr_bat: unable to allocate zrand array' ) 608 598 h_oce = gdepw_1d(jpk) ! background ocean depth (meters) 609 ! IF(lwp) WRITE(numout,*) ' bump characteristics: '610 ! IF(lwp) WRITE(numout,*) ' bump center (i,j) = ', ii_bump, ii_bump611 ! IF(lwp) WRITE(numout,*) ' bump height = ', h_bump , ' meters'612 ! IF(lwp) WRITE(numout,*) ' bump radius = ', r_bump , ' index'613 ! IF(lwp) WRITE(numout,*) ' background ocean depth = ', h_oce , ' meters'614 599 ! 615 600 CALL RANDOM_SEED() 616 601 CALL RANDOM_NUMBER(zrand) 617 DO jj = 1, jpjglo ! zdta :618 DO ji = 1, jpiglo619 ! zi = FLOAT( ji - ii_bump ) * ppe1_m / r_bump 620 ! zj = FLOAT( jj - ij_bump ) * ppe2_m / r_bump 621 ! zdta(ji,jj) = h_oce - h_bump * EXP( -( zi*zi + zj*zj ) ) 622 zdta(ji,jj) = h_oce + 0.1_wp *h_oce * (zrand(ji,jj)-1._wp)602 DO_2D( 0, 0, 0, 0 ) 603 bathy(ji,jj) = h_oce + 0.1_wp *h_oce * (zrand(mig(ji),mjg(jj))-1._wp) 604 END_2D 605 IF ( cp_cfg=='OVERFLOW' ) THEN 606 DO jj=1,jpj 607 bathy(:,jj) = +( 500. + 0.5 * 1500. * ( 1.0 + tanh( (glamt(:,3) - 40.) / 7. ) )) 623 608 END DO 624 END DO 625 ! ! idta : 609 ENDIF 610 IF ( cp_cfg=='DOME' ) THEN 611 bathy(:,:) = MIN(3600._wp, MAX( 600._wp, 600._wp -gphit(:,:)*1.e3*0.01 )) 612 WHERE (gphit(:,:) >0._wp) bathy(:,:) = 0._wp 613 ! Dig inlet: 614 WHERE ((gphit(:,:)>0._wp).AND.(glamt(:,:)>-50._wp).AND.(glamt(:,:)<50._wp)) bathy(:,:) = 600._wp 615 ENDIF 616 ! CALL lbc_lnk( 'zgr_bat', bathy, 'T', 1._wp ) 617 ! 618 DEALLOCATE(zrand) 619 ! 626 620 IF( ln_sco ) THEN ! s-coordinate (zsc ): idta()=jpk 627 idta(:,:) = jpkm1621 mbathy(:,:) = jpkm1 628 622 ELSE ! z-coordinate (zco or zps): step-like topography 629 idta(:,:) = jpkm1623 mbathy(:,:) = jpkm1 630 624 DO jk = 1, jpkm1 631 WHERE( gdept_1d(jk) < zdta(:,:) .AND. zdta(:,:) <= gdept_1d(jk+1) ) idta(:,:) = jk625 WHERE( gdept_1d(jk) < bathy(:,:) .AND. bathy(:,:) <= gdept_1d(jk+1) ) mbathy(:,:) = jk 632 626 END DO 633 627 ENDIF 634 628 ENDIF 635 629 ! 636 ! ! set GLOBAL boundary conditions637 IF( jperio == 1 .OR. jperio == 4 .OR. jperio == 6 ) THEN638 idta( : , 1 ) = -1 ; zdta( : , 1 ) = -1._wp639 idta( : ,jpjglo) = 0 ; zdta( : ,jpjglo) = 0._wp640 ELSEIF( jperio == 2 ) THEN641 idta( : , 1 ) = idta( : , 3 ) ; zdta( : , 1 ) = zdta( : , 3 )642 idta( : ,jpjglo) = 0 ; zdta( : ,jpjglo) = 0._wp643 idta( 1 , : ) = 0 ; zdta( 1 , : ) = 0._wp644 idta(jpiglo, : ) = 0 ; zdta(jpiglo, : ) = 0._wp645 ELSE646 ih = 0 ; zh = 0._wp647 IF( ln_sco ) ih = jpkm1 ; IF( ln_sco ) zh = h_oce648 idta( : , 1 ) = ih ; zdta( : , 1 ) = zh649 idta( : ,jpjglo) = ih ; zdta( : ,jpjglo) = zh650 idta( 1 , : ) = ih ; zdta( 1 , : ) = zh651 idta(jpiglo, : ) = ih ; zdta(jpiglo, : ) = zh652 ENDIF653 654 ! ! local domain level and meter bathymetries (mbathy,bathy)655 mbathy(:,:) = 0 ! set to zero extra halo points656 bathy (:,:) = 0._wp ! (require for mpp case)657 DO_2D( 0, 0, 0, 0 )658 mbathy(ji,jj) = idta( mig(ji), mjg(jj) )659 bathy (ji,jj) = zdta( mig(ji), mjg(jj) )660 END_2D661 630 risfdep(:,:)=0.e0 662 631 misfdep(:,:)=1 663 !664 DEALLOCATE( idta, zdta , zrand)665 632 ! 666 633 ! ! ================ !
Note: See TracChangeset
for help on using the changeset viewer.
