diff --git a/src/SURFEX/prep_hor_teb_field.F90 b/src/SURFEX/prep_hor_teb_field.F90 index b6e625203c26dc30bb41ce4b46ab66ec5a5a2c18..d9c1a63e8b643c979259cee52ee70f51df23dce4 100644 --- a/src/SURFEX/prep_hor_teb_field.F90 +++ b/src/SURFEX/prep_hor_teb_field.F90 @@ -329,7 +329,7 @@ IF (YDCTL%LPART5) THEN CASE('PSOLD ') ALLOCATE(B%XPSOLD (SIZE(ZFIELDOUT,1))) ALLOCATE(ZPS(SIZE(ZFIELDOUT,1))) - ZPS = XP00 - ZRHOA * XG * XZS_LS + ZPS = XUNDEF ZFIELDOUT(:,1) = ZPS DEALLOCATE(ZPS) B%XPSOLD(:) = ZFIELDOUT(:,1) diff --git a/src/SURFEX/prep_teb_buffer.F90 b/src/SURFEX/prep_teb_buffer.F90 index 6b7dfa2564e9e68b0f8ad9c0c7e05bdbb0daece8..5565b0f7c2bd9cb79881c4411fe439899cb0dc1e 100644 --- a/src/SURFEX/prep_teb_buffer.F90 +++ b/src/SURFEX/prep_teb_buffer.F90 @@ -223,7 +223,7 @@ SELECT CASE(HSURF) ! CASE('PSOLD ') ALLOCATE(PFIELD(NNI,1)) - PFIELD = 101325.0 + PFIELD = XUNDEF ! CASE('VENTNIG') ALLOCATE(PFIELD(NNI,1)) diff --git a/src/SURFEX/prep_teb_extern.F90 b/src/SURFEX/prep_teb_extern.F90 index 25482e528787d504c60cda762bb5fcd6f074697c..8c464625f92a503daa49ee961ca9c0c883851b48 100644 --- a/src/SURFEX/prep_teb_extern.F90 +++ b/src/SURFEX/prep_teb_extern.F90 @@ -516,7 +516,7 @@ ELSE YRECFM=ADJUSTL(YRECFM) IF (HSURF=='PSOLD ') THEN IF (GOLD_NAME2 .OR. YBEM == 'DEF') THEN - PFIELD(:,1) = 101325.0 + PFIELD(:,1) = XUNDEF ELSE CALL READ_SURF(HFILETYPE,YRECFM,PFIELD(:,1),IRESP,HDIR='E') ENDIF @@ -608,7 +608,7 @@ ELSE ! CASE('PSOLD ') ALLOCATE(PFIELD(INI,1)) - PFIELD = 101325.0 + PFIELD = XUNDEF ! CASE('VENTNIG') ALLOCATE(PFIELD(INI,1)) diff --git a/src/SURFEX/prep_teb_grib.F90 b/src/SURFEX/prep_teb_grib.F90 index 638e6393251e76ae820a12a44ba2e8a0bf5e422c..e704a91c76b72a434ca2be3ea4f630b4080529cb 100644 --- a/src/SURFEX/prep_teb_grib.F90 +++ b/src/SURFEX/prep_teb_grib.F90 @@ -227,7 +227,7 @@ SELECT CASE(HSURF) ! CASE('PSOLD') ALLOCATE(PFIELD(NNI,1)) - PFIELD = 101325.0 + PFIELD = XUNDEF ! CASE('VENTNIG') ALLOCATE(PFIELD(NNI,1)) diff --git a/src/SURFEX/prep_teb_unif.F90 b/src/SURFEX/prep_teb_unif.F90 index 2688c8c039d30ce04c3a6a2016852240bb661bc9..c81e0e4040c9ed007021e287cfa8d1b1fd6b493e 100644 --- a/src/SURFEX/prep_teb_unif.F90 +++ b/src/SURFEX/prep_teb_unif.F90 @@ -153,7 +153,7 @@ SELECT CASE(HSURF) ! CASE('PSOLD') ALLOCATE(PFIELD(1,1)) - PFIELD = 101325.0 + PFIELD = XUNDEF CASE('VENTNIG') ALLOCATE(PFIELD(1,1))