Changeset 9125 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG
- Timestamp:
- 2017-12-19T09:47:17+01:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_zgr.F90
r9089 r9125 24 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 25 USE lib_mpp ! distributed memory computing library 26 USE wrk_nemo ! Memory allocation27 26 USE timing ! Timing 28 27 -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/LOCK_EXCHANGE/MY_SRC/usrdef_zgr.F90
r7188 r9125 21 21 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 22 22 USE lib_mpp ! distributed memory computing library 23 USE wrk_nemo ! Memory allocation24 23 USE timing ! Timing 25 24 -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/OVERFLOW/MY_SRC/usrdef_zgr.F90
r7188 r9125 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 24 USE lib_mpp ! distributed memory computing library 25 USE wrk_nemo ! Memory allocation26 25 USE timing ! Timing 27 26 -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/VORTEX/MY_SRC/usrdef_zgr.F90
r9124 r9125 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 24 USE lib_mpp ! distributed memory computing library 25 USE wrk_nemo ! Memory allocation26 25 27 26 IMPLICIT NONE -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90
r9124 r9125 29 29 USE lib_mpp ! for mpp_sum 30 30 USE iom ! I/O 31 USE wrk_nemo ! Memory Allocation32 31 33 32 IMPLICIT NONE … … 148 147 INTEGER :: com_east_b, com_west_b, com_south_b, com_north_b ! Flags for boundaries receiving 149 148 INTEGER :: iw_b(4), ie_b(4), is_b(4), in_b(4) ! Arrays for neighbours coordinates 150 REAL(wp), POINTER, DIMENSION(:,:) :: zfmask ! temporary fmask array excluding coastal boundary condition (shlat)149 REAL(wp), DIMENSION(jpi,jpj) :: zfmask ! temporary fmask array excluding coastal boundary condition (shlat) 151 150 !! 152 151 CHARACTER(LEN=1) :: ctypebdy ! - - … … 1189 1188 ! For the flagu/flagv calculation below we require a version of fmask without 1190 1189 ! the land boundary condition (shlat) included: 1191 CALL wrk_alloc(jpi,jpj, zfmask )1192 1190 DO ij = 2, jpjm1 1193 1191 DO ii = 2, jpim1 … … 1318 1316 IF( nb_bdy>0 ) DEALLOCATE( nbidta, nbjdta, nbrdta ) 1319 1317 ! 1320 CALL wrk_dealloc(jpi,jpj, zfmask )1321 1318 ! 1322 1319 END SUBROUTINE bdy_segs -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/domain.F90
r9124 r9125 45 45 USE lbclnk ! ocean lateral boundary condition (or mpp link) 46 46 USE lib_mpp ! distributed memory computing library 47 USE wrk_nemo ! Memory Allocation48 47 49 48 IMPLICIT NONE -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/usrdef_zgr.F90
r9124 r9125 24 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 25 USE lib_mpp ! distributed memory computing library 26 USE wrk_nemo ! Memory allocation27 26 28 27 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.