Changeset 13204 for utils/tools/DOMAINcfg/src/domngb.F90

Timestamp:

2020-07-02T10:38:35+02:00 (4 years ago)

Author:

smasson

Message:

tools: update with tools_dev_r12970_AGRIF_CMEMS

File:

• utils/tools/DOMAINcfg/src/domngb.F90 (modified) (3 diffs)

utils/tools/DOMAINcfg/src/domngb.F90

@@ -11 +11 @@
    !!----------------------------------------------------------------------
    USE dom_oce        ! ocean space and time domain
-   USE phycst
    !
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! for mppsum
+   USE phycst
 
    IMPLICIT NONE
@@ -46 +46 @@
       INTEGER :: ik         ! working level
       INTEGER , DIMENSION(2) ::   iloc
+      REAL(wp)               ::   zlon, zmini
       REAL(wp), DIMENSION(jpi,jpj) ::   zglam, zgphi, zmask, zdist
       !!--------------------------------------------------------------------
@@ -59 +60 @@
       END SELECT
 
-      zdist = dist(plon, plat, zglam, zgphi)
+      zlon       = MOD( plon       + 720., 360. )                                     ! plon between    0 and 360
+      zglam(:,:) = MOD( zglam(:,:) + 720., 360. )                                     ! glam between    0 and 360
+      IF( zlon > 270. )   zlon = zlon - 360.                                          ! zlon between  -90 and 270
+      IF( zlon <  90. )   WHERE( zglam(:,:) > 180. ) zglam(:,:) = zglam(:,:) - 360.   ! glam between -180 and 180
+      zglam(:,:) = zglam(:,:) - zlon
 
       IF( lk_mpp ) THEN