Juan 24/05/2017: add MPPDB_CHECK on SURFEX routine for reprod check with MNH_PARALLEL key
[MNH-git_open_source-lfs.git] / src / SURFEX / pgd_isba.F90
index 687a72d..95f7cab 100644 (file)
@@ -40,6 +40,7 @@
 !!    E. Martin     12/2008 : files of data for runoffb and wdrain
 !!    B. Decharme   06/2009 : files of data for topographic index
 !!    A.L. Gibelin  04/2009 : dimension NBIOMASS for ISBA-A-gs
+!!    M. Moge       02/2015 : MPPDB_CHECK
 !!
 !----------------------------------------------------------------------------
 !
@@ -96,6 +97,10 @@ USE PARKIND1  ,ONLY : JPRB
 !
 USE MODI_ABOR1_SFX
 !
+#ifdef MNH_PARALLEL
+USE MODE_MPPDB
+!
+#endif
 IMPLICIT NONE
 !
 !*    0.1    Declaration of arguments
@@ -329,7 +334,12 @@ ALLOCATE(XZ0EFFJPDIR(ILU))
  CALL PACK_PGD(HPROGRAM, 'NATURE',                    &
                 CGRID,  XGRID_PAR,                     &
                 LCOVER, XCOVER, XZS,                   &
-                XLAT, XLON, XMESH_SIZE, XZ0EFFJPDIR    )  
+                XLAT, XLON, XMESH_SIZE, XZ0EFFJPDIR    ) 
+#ifdef MNH_PARALLEL 
+ CALL MPPDB_CHECK_SURFEX2D(XLAT,"PGD_ISBA after PACK_PGD:XLAT",PRECISION,ILUOUT, 'NATURE')
+ CALL MPPDB_CHECK_SURFEX2D(XLON,"PGD_ISBA after PACK_PGD:XLON",PRECISION,ILUOUT, 'NATURE')
+ CALL MPPDB_CHECK_SURFEX2D(XMESH_SIZE,"PGD_ISBA after PACK_PGD:XMESH_SIZE",PRECISION,ILUOUT, 'NATURE')
+#endif
 !
 !-------------------------------------------------------------------------------
 !