Changeset 2294 for LMDZ5/trunk/libf/dynlonlat_phylonlat/grid_atob_m.F90

Timestamp:

Jun 11, 2015, 8:06:49 PM (9 years ago)

Author:

fhourdin

Message:

Introduction d'un seuil sur la probabilité de non déclenchement
stochastique random_notrig_max
Si le tirage aleatoire uniforme entre 0 et 1 est > random_notrig_max
on ne déclenche pas.
random_notrig_max=1-epsilon avec epsilon petit.

Corrections dans grid_atob_m.F90 pour la compilation Linux.
A vérifier.

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/grid_atob_m.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynlonlat_phylonlat/grid_atob_m.F90

@@ -83 +83 @@
     RETURN
   END IF
-  nn=COUNT(found/=0); IF(nn==0) RETURN
+  nn=COUNT(found); IF(nn==0) RETURN
 
 !--- MISSING POINTS ; USE DISTANCE ON THE SPHERE TO FIND NEAREST POINT nr(2)
@@ -136 +136 @@
   DOUBLE PRECISION  :: out(SIZE(x),SIZE(y))
 !-------------------------------------------------------------------------------
-  CALL fine2coarse(xdata,ydata,x,y,out,DBLE(entree))
+!  CALL fine2coarse(xdata,ydata,x,y,out,DBLE(entree))
+  CALL fine2coarse(xdata,ydata,x,y,out,entree)
   sortie=REAL(out)