Juan 26/10/2022:mode_mnh_zwork.f90, For Grand Challenge , more variables...

Juan 26/10/2022:mode_mnh_zwork.f90, For Grand Challenge , more variables needed on GPU , upgrade JPMAX_T1DFLAT_R = 120 => 300

src/MNH/mode_mnh_zwork.f90

@@ -149,7 +149,7 @@ MODULE MODE_MNH_ZWORK
 
 
 !------ Real 1DFLAT pool
-  INTEGER, PARAMETER                                 :: JPMAX_T1DFLAT_R = 120       !Used to determine max size of buffer ZT1DFLAT
+  INTEGER, PARAMETER                                 :: JPMAX_T1DFLAT_R = 300      !Used to determine max size of buffer ZT1DFLAT
                                                                                    !(3D size of the mesh * JPMAX_T1DFLAT_R)
   INTEGER,                SAVE                       :: NPMAX_POOL_T1DFLAT_R = 250 !Maximum size of the pool (max number of arrays)
   INTEGER(KIND=MNHINT64), ALLOCATABLE, DIMENSION (:) :: NT1DFLAT_POOL_R   !Position in ZT1DFLAT of the beginning of each array
@@ -1539,6 +1539,7 @@ CONTAINS
     NTOT_GETSIZE_ZT1DFLAT  = NTOT_GETSIZE_ZT1DFLAT + KSIZE
 
     IF ( NT1DFLAT_POS_R + KSIZE > NT1DFLAT_MAXSIZE_R ) THEN
+      print*,"MNH_GET_ZT1DFLAT ZT1DFLAT too small, JPMAX_T1DFLAT_R =" , JPMAX_T1DFLAT_R
       WRITE( YSIZE,  '( I0 )' ) KSIZE
       WRITE( YAVAIL, '( I0 )' ) NT1DFLAT_MAXSIZE_R - NT1DFLAT_POS_R
       WRITE( YMAX,   '( I0 )' ) NT1DFLAT_MAXSIZE_R