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

Timestamp:

2021-05-31T16:36:45+02:00 (3 years ago)

Author:

jchanut

Message:

#2638: restores Pierre's changes done in #2588 at r14199

File:

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

utils/tools/DOMAINcfg/src/domngb.F90

@@ -46 +46 @@
       INTEGER :: ik         ! working level
       INTEGER , DIMENSION(2) ::   iloc
-      REAL(wp)               ::   zlon, zmini
       REAL(wp), DIMENSION(jpi,jpj) ::   zglam, zgphi, zmask, zdist
       !!--------------------------------------------------------------------
@@ -60 +59 @@
       END SELECT
 
-      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
+      zdist = dist(plon, plat, zglam, zgphi) 
 
       IF( lk_mpp ) THEN