Changeset 12866 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/USR/usrdef_zgr.F90
- Timestamp:
- 2020-05-05T08:18:05+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/USR/usrdef_zgr.F90
r12377 r12866 198 198 IF(lwp) WRITE(numout,*) ' GYRE case : closed flat box ocean without ocean cavities' 199 199 ! 200 z2d(:,:) = REAL( jpkm1 , wp ) ! flat bottom 200 z2d(:,:) = REAL( jpkm1 , wp ) ! flat bottom 201 z2d(mi0( 1 ):mi1(jpiglo),mj0(Njs0):mj1( Njs0 )) = 0._wp ! line number Njs0 at 0 202 z2d(mi0(Nis0):mi1( Nis0 ),mj0( 1 ):mj1(jpjglo)) = 0._wp ! column number Nis0 at 0 201 203 ! 202 204 CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. ) ! set surrounding land to zero (here jperio=0 ==>> closed)
Note: See TracChangeset
for help on using the changeset viewer.