Changeset 10727 for utils/tools_AGRIF_CMEMS_2020/DOMAINcfg/src/domngb.F90
- Timestamp:
- 2019-02-27T17:02:02+01:00 (5 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
utils/tools_AGRIF_CMEMS_2020/DOMAINcfg/src/domngb.F90
r10725 r10727 11 11 !!---------------------------------------------------------------------- 12 12 USE dom_oce ! ocean space and time domain 13 ! 13 14 USE in_out_manager ! I/O manager 14 15 USE lib_mpp ! for mppsum 15 USE wrk_nemo ! Memory allocation16 USE timing ! Timing17 16 18 17 IMPLICIT NONE … … 23 22 !!---------------------------------------------------------------------- 24 23 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 25 !! $Id: domngb.F90 6140 2015-12-21 11:35:23Z timgraham$26 !! Software governed by the CeCILL licen ce (./LICENSE)24 !! $Id: domngb.F90 10425 2018-12-19 21:54:16Z smasson $ 25 !! Software governed by the CeCILL license (see ./LICENSE) 27 26 !!---------------------------------------------------------------------- 28 27 CONTAINS … … 45 44 INTEGER , DIMENSION(2) :: iloc 46 45 REAL(wp) :: zlon, zmini 47 REAL(wp), POINTER, DIMENSION(:,:) ::zglam, zgphi, zmask, zdist46 REAL(wp), DIMENSION(jpi,jpj) :: zglam, zgphi, zmask, zdist 48 47 !!-------------------------------------------------------------------- 49 !50 IF( nn_timing == 1 ) CALL timing_start('dom_ngb')51 !52 CALL wrk_alloc( jpi,jpj, zglam, zgphi, zmask, zdist )53 48 ! 54 49 zmask(:,:) = 0._wp … … 62 57 END SELECT 63 58 64 IF (jphgr_msh /= 2 .AND. jphgr_msh /= 3) THEN 65 zlon = MOD( plon + 720., 360. ) ! plon between 0 and 360 66 zglam(:,:) = MOD( zglam(:,:) + 720., 360. ) ! glam between 0 and 360 67 IF( zlon > 270. ) zlon = zlon - 360. ! zlon between -90 and 270 68 IF( zlon < 90. ) WHERE( zglam(:,:) > 180. ) zglam(:,:) = zglam(:,:) - 360. ! glam between -180 and 180 69 zglam(:,:) = zglam(:,:) - zlon 70 ELSE 71 zglam(:,:) = zglam(:,:) - plon 72 END IF 59 zlon = MOD( plon + 720., 360. ) ! plon between 0 and 360 60 zglam(:,:) = MOD( zglam(:,:) + 720., 360. ) ! glam between 0 and 360 61 IF( zlon > 270. ) zlon = zlon - 360. ! zlon between -90 and 270 62 IF( zlon < 90. ) WHERE( zglam(:,:) > 180. ) zglam(:,:) = zglam(:,:) - 360. ! glam between -180 and 180 63 zglam(:,:) = zglam(:,:) - zlon 73 64 74 65 zgphi(:,:) = zgphi(:,:) - plat … … 76 67 77 68 IF( lk_mpp ) THEN 78 CALL mpp_minloc( zdist(:,:), zmask, zmini, kii, kjj) 69 CALL mpp_minloc( 'domngb', zdist(:,:), zmask, zmini, iloc) 70 kii = iloc(1) ; kjj = iloc(2) 79 71 ELSE 80 72 iloc(:) = MINLOC( zdist(:,:), mask = zmask(:,:) == 1.e0 ) … … 83 75 ENDIF 84 76 ! 85 CALL wrk_dealloc( jpi,jpj, zglam, zgphi, zmask, zdist )86 !87 IF( nn_timing == 1 ) CALL timing_stop('dom_ngb')88 !89 77 END SUBROUTINE dom_ngb 90 78
Note: See TracChangeset
for help on using the changeset viewer.