From 79248ed32c4619614452121bdd9e94f5deb6223d Mon Sep 17 00:00:00 2001
From: saraqzhang <sara.q.zhang@nasa.gov>
Date: Wed, 18 Oct 2023 14:11:01 -0400
Subject: [PATCH]         updates for handling forcing outputs in ladas cycling
 	modified:   src/Applications/GEOSdas_App/GEOSdas.csm 	modified:  
 src/Applications/GEOSdas_App/fvpsas

---
 src/Applications/GEOSdas_App/GEOSdas.csm | 25 ++++++++++++++++++++----
 src/Applications/GEOSdas_App/fvpsas      |  8 ++++++++
 2 files changed, 29 insertions(+), 4 deletions(-)

diff --git a/src/Applications/GEOSdas_App/GEOSdas.csm b/src/Applications/GEOSdas_App/GEOSdas.csm
index 6e21cf6c..5793efd5 100755
--- a/src/Applications/GEOSdas_App/GEOSdas.csm
+++ b/src/Applications/GEOSdas_App/GEOSdas.csm
@@ -140,6 +140,7 @@
   if ( !($?IGNORE_0) )            setenv IGNORE_0      0
   if ( !($?INITTAG) )             setenv INITTAG       0
   if ( !($?LDAS_ANA) )            setenv LDAS_ANA      0
+  if ( !($?LDHOME) )              setenv LDHOME        none
   if ( !($?LOCAL_ACQUIRE) )       setenv LOCAL_ACQUIRE 0
   if ( !($?MAP05RST) )            setenv MAP05RST      0
   if ( !($?MKRESRST ) )           setenv MKRESRST      0
@@ -5866,10 +5867,10 @@ endif
 
             # hold lfo files for the next segment of ldas coupling
             #----------------------------------------------------------
-            if ( $LDAS_ANA ) then
-               mkdir -p              $FVHOME/recycle/holdforc
-               /bin/cp  *2d_lfo*nc4  $FVHOME/recycle/holdforc/
-            endif
+            #if ( $LDAS_ANA ) then
+               mkdir -p              $FVHOME/lana//holdforc
+               /bin/cp  $FVHOME/recycle/holdpredout/*2d_lfo*nc4  $FVHOME/lana/holdforc/
+            #endif
 
             # local copy to be moved by pesto, 2nd copy to be dealt w/ by recycle
             #--------------------------------------------------------------------
@@ -6076,6 +6077,22 @@ endif
 \end
 
 #.............................................................................
+# -----------------------------------
+  Sub MovePredictorOutput_( )
+#------------------------------------ 
+
+  if ( $LDAS_ANA ) then
+    mkdir -p               $FVHOME/recycle/holdpredout 
+    /bin/mv -f $FVWORK/*lfo_Nx+-* $FVHOME/recycle/holdpredout/. 
+    /bin/cp $FVHOME/recycle/holdpredout/*lfo_Nx+-*  $LDHOME/input/met_forcing/. 
+  endif 
+   
+  exit 0                      
+                              # Last line of MovePredictorOutput_()
+       
+\end
+ 
+#............................................................................. 
 
 # ------------------------------------
   Sub AbnormalExit_( _exitcode )
diff --git a/src/Applications/GEOSdas_App/fvpsas b/src/Applications/GEOSdas_App/fvpsas
index 56f8ba91..850e8798 100755
--- a/src/Applications/GEOSdas_App/fvpsas
+++ b/src/Applications/GEOSdas_App/fvpsas
@@ -530,6 +530,14 @@
          Call SplitExecGcmRun_( 1 )
                                                        zeit_co.x RunGcm
 
+#        Save predictor forcings for ldas coupling 
+#----------------------------------------------------
+         if ( $LDAS_ANA ) then
+                                                      zeit_ci.x MovePrecitorOutput
+            Call MovePredictorOutput_() 
+                                                      zeit_co.x MovePrecitorOutput
+         endif 
+
 #        Save desired restarts for future forecasts
 #        ------------------------------------------
                                                        zeit_ci.x SaveRstForFcst