Philippe 10/10/2019: add mppdb_check calls in fast_terms

src/MNH/fast_terms.f90

@@ -162,6 +162,7 @@ USE MODD_CST
 USE MODD_LUNIT_n, ONLY: TLUOUT
 USE MODD_PARAMETERS
 
+use mode_mppdb
 #ifdef _OPENACC
 use mode_msg
 #endif
@@ -230,13 +231,29 @@ INTEGER             :: JITER,ITERMAX  ! iterative loop for first order adjustmen
 INTEGER             :: ILUOUT     ! Logical unit of output listing 
 LOGICAL,DIMENSION(SIZE(PRCS,1),SIZE(PRCS,2),SIZE(PRCS,3))::GWORK
 !-------------------------------------------------------------------------------
+#ifdef _OPENACC
+call Print_msg( NVERB_WARNING, 'GEN', 'FAST_TERMS', 'OpenACC: being implemented' )
+#endif
+
+IF (MPPDB_INITIALIZED) THEN
+  !Check all IN arrays
+  CALL MPPDB_CHECK(PRHODJ,"FAST_TERMS beg:PRHODJ")
+  CALL MPPDB_CHECK(PSIGS, "FAST_TERMS beg:PSIGS")
+  CALL MPPDB_CHECK(PPABST,"FAST_TERMS beg:PPABST")
+  CALL MPPDB_CHECK(PRVT,  "FAST_TERMS beg:PRVT")
+  CALL MPPDB_CHECK(PRCT,  "FAST_TERMS beg:PRCT")
+  IF ( present( PRRS ) ) CALL MPPDB_CHECK(PRRS,"FAST_TERMS beg:PRRS")
+  CALL MPPDB_CHECK(PCF_MF,"FAST_TERMS beg:PCF_MF")
+  CALL MPPDB_CHECK(PRC_MF,"FAST_TERMS beg:PRC_MF")
+    !Check all INOUT arrays
+  CALL MPPDB_CHECK(PRVS,"FAST_TERMS beg:PRVS")
+  CALL MPPDB_CHECK(PRCS,"FAST_TERMS beg:PRCS")
+  CALL MPPDB_CHECK(PTHS,"FAST_TERMS beg:PTHS")
+END IF
 !
 !*       1.     PRELIMINARIES
 !               -------------
 !
-#ifdef _OPENACC
-call Print_msg( NVERB_ERROR, 'GEN', 'FAST_TERMS', 'OpenACC: being implemented' )
-#endif
 ILUOUT = TLUOUT%NLU
 !
 ZEPS= XMV / XMD
@@ -461,6 +478,16 @@ IF (LBUDGET_RV) CALL BUDGET (PRVS(:,:,:) * PRHODJ(:,:,:),6,'COND_BU_RRV')
 IF (LBUDGET_RC) CALL BUDGET (PRCS(:,:,:) * PRHODJ(:,:,:),7,'COND_BU_RRC')
 IF (LBUDGET_TH) CALL BUDGET (PTHS(:,:,:) * PRHODJ(:,:,:),4,'COND_BU_RTH')
 !
+IF (MPPDB_INITIALIZED) THEN
+    !Check all INOUT arrays
+  CALL MPPDB_CHECK(PRVS,"FAST_TERMS end:PRVS")
+  CALL MPPDB_CHECK(PRCS,"FAST_TERMS end:PRCS")
+  CALL MPPDB_CHECK(PTHS,"FAST_TERMS end:PTHS")
+  !Check all OUT arrays
+  CALL MPPDB_CHECK(PSRCS, "FAST_TERMS end:PSRCS")
+  CALL MPPDB_CHECK(PCLDFR,"FAST_TERMS end:PCLDFR")
+END IF
+
 !------------------------------------------------------------------------------
 !
 !