- Timestamp:
- 2015-12-16T10:25:22+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/CRS/crs.F90
r5215 r6060 11 11 USE in_out_manager 12 12 13 14 13 IMPLICIT NONE 15 14 PUBLIC 16 15 17 18 16 PUBLIC crs_dom_alloc ! Called from crsini.F90 19 17 PUBLIC crs_dom_alloc2 ! Called from crsini.F90 … … 161 159 INTEGER, PUBLIC, ALLOCATABLE, DIMENSION(:,:) :: nmln_crs, hmld_crs, hmlp_crs, hmlpt_crs 162 160 163 ! Direction of lateral diffusion 164 165 161 !!---------------------------------------------------------------------- 162 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 166 163 !! $Id$ 164 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 165 !!---------------------------------------------------------------------- 167 166 CONTAINS 168 167 … … 258 257 259 258 END FUNCTION crs_dom_alloc 260 259 260 261 261 INTEGER FUNCTION crs_dom_alloc2() 262 262 !!------------------------------------------------------------------- … … 272 272 crs_dom_alloc2 = MAXVAL(ierr) 273 273 274 END FUNCTION crs_dom_alloc2 274 END FUNCTION crs_dom_alloc2 275 275 276 276 277 SUBROUTINE dom_grid_glo … … 312 313 END SUBROUTINE dom_grid_glo 313 314 315 314 316 SUBROUTINE dom_grid_crs 315 317 !!-------------------------------------------------------------------- … … 318 320 !! ** Purpose : Save the parent grid information & Switch to coarse grid domain 319 321 !!--------------------------------------------------------------------- 320 321 322 ! 322 323 ! Switch to coarse grid domain … … 349 350 nlejt(:) = nlejt_crs(:) 350 351 njmppt(:) = njmppt_crs(:) 351 352 353 352 ! 354 353 END SUBROUTINE dom_grid_crs 355 354 356 357 355 !!====================================================================== 358 359 356 END MODULE crs 360 357
Note: See TracChangeset
for help on using the changeset viewer.