add checks for updates clm

NorESMhub · Oct 12, 2023 · dd3c247 · dd3c247
1 parent febcc84
commit dd3c247
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 19 deletions.
diff --git a/cime_config/config_pes.xml b/cime_config/config_pes.xml
@@ -1453,14 +1453,14 @@
       <pes pesize="any" compset="any">
 	<comment>Need at least 2 nodes to devel queue</comment>
 	<ntasks>
-	  <ntasks_atm>-2</ntasks_atm> 
-	  <ntasks_lnd>-2</ntasks_lnd>           
-	  <ntasks_rof>-2</ntasks_rof> 
-	  <ntasks_ice>-2</ntasks_ice> 
-	  <ntasks_ocn>-2</ntasks_ocn> 
-	  <ntasks_glc>-2</ntasks_glc> 
-	  <ntasks_wav>-2</ntasks_wav> 
-	  <ntasks_cpl>-2</ntasks_cpl> 
+	  <ntasks_atm>-1</ntasks_atm> 
+	  <ntasks_lnd>-3</ntasks_lnd>           
+	  <ntasks_rof>-3</ntasks_rof> 
+	  <ntasks_ice>-3</ntasks_ice> 
+	  <ntasks_ocn>-3</ntasks_ocn> 
+	  <ntasks_glc>-3</ntasks_glc> 
+	  <ntasks_wav>-3</ntasks_wav> 
+	  <ntasks_cpl>-3</ntasks_cpl> 
 	</ntasks>
 	<nthrds>
 	  <nthrds_atm>1</nthrds_atm>                   
@@ -1474,13 +1474,13 @@
 	</nthrds>
 	<rootpe>
 	  <rootpe_atm>0</rootpe_atm> 
-	  <rootpe_lnd>0</rootpe_lnd> 
-	  <rootpe_rof>0</rootpe_rof> 
-	  <rootpe_ice>0</rootpe_ice>    
-	  <rootpe_ocn>0</rootpe_ocn>   
-	  <rootpe_glc>0</rootpe_glc> 
-	  <rootpe_wav>0</rootpe_wav> 
-	  <rootpe_cpl>0</rootpe_cpl>                         
+	  <rootpe_lnd>-1</rootpe_lnd> 
+	  <rootpe_rof>-1</rootpe_rof> 
+	  <rootpe_ice>-1</rootpe_ice>    
+	  <rootpe_ocn>-1</rootpe_ocn>   
+	  <rootpe_glc>-1</rootpe_glc> 
+	  <rootpe_wav>-1</rootpe_wav> 
+	  <rootpe_cpl>-1</rootpe_cpl>                         
 	</rootpe>
       </pes>
     </mach>

diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90
@@ -1054,7 +1054,7 @@ subroutine dynamics_driv(this, nc, bounds_clump,      &
 
             call ed_update_site(this%fates(nc)%sites(s), &
                   this%fates(nc)%bc_in(s), &
-                  this%fates(nc)%bc_out(s))
+                  this%fates(nc)%bc_out(s), 1)
       enddo
 
 
@@ -1707,6 +1707,7 @@ subroutine restart( this, bounds_proc, ncid, flag, waterdiagnosticbulk_inst, &
 
                ! I think ed_update_site and update_hlmfates_dyn are doing some similar
                ! update type stuff, should consolidate (rgk 11-2016)
+               write(iulog,*) 'CHECKPOINT1'
                do s = 1,this%fates(nc)%nsites
 
                   c = this%f2hmap(nc)%fcolumn(s)
@@ -1715,8 +1716,8 @@ subroutine restart( this, bounds_proc, ncid, flag, waterdiagnosticbulk_inst, &
                        min(this%fates(nc)%bc_in(s)%nlevsoil, active_layer_inst%altmax_lastyear_indx_col(c))
 
                   call ed_update_site( this%fates(nc)%sites(s), &
-                        this%fates(nc)%bc_in(s), &
-                        this%fates(nc)%bc_out(s) )
+                       this%fates(nc)%bc_in(s), &
+                        this%fates(nc)%bc_out(s) , 0)
 
                end do
 
@@ -1940,7 +1941,7 @@ subroutine init_coldstart(this, waterstatebulk_inst, waterdiagnosticbulk_inst, &
 
               call ed_update_site(this%fates(nc)%sites(s), &
                     this%fates(nc)%bc_in(s), &
-                    this%fates(nc)%bc_out(s))
+                    this%fates(nc)%bc_out(s) , 2 )
 
            end do