@@ -3625,19 +3625,6 @@ subroutine RUN1 ( GC, IMPORT, EXPORT, CLOCK, RC )
36253625
36263626 call MAPL_TimerOn(MAPL," -SURF" ) ! timer for computation of MOSFC exchange coeffs and derivs (Louis or Helfand)
36273627
3628- ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3629- !
3630- ! reichle, 9/9/2024
3631- !
3632- ! TBD: LIMIT QC+DeltaQC TO qsat(TC)? See comment/question below (~line 5300)
3633- !
3634- ! TBD: VERIFY LIST OF INTENT(INOUT) VARIABLES FOR louissurface() AND helfsurface()
3635- !
3636- ! TBD: FOR NUMERICAL DERIVS, CAN WE COMPUTE DELTA W.R.T. VIRTUAL TEMP TO AVOID ONE CALL
3637- ! TO louissurface() OR helfsurface()?
3638- !
3639- ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3640-
36413628 if (CATCH_INTERNAL_STATE% CHOOSEMOSFC.eq. 0 ) then
36423629
36433630 ! Louis surface turbulence
@@ -5416,23 +5403,11 @@ subroutine Driver ( RC )
54165403 ! reichle, 9/9/2024
54175404 !- -------------------------------------------------------------------------------------------------
54185405
5419-
54205406 ! initialize derivatives that may not be filled later
54215407
54225408 DEDTC = 0.0
54235409 DHSDQC= 0.0
54245410
5425- ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
5426- !
5427- ! reichle, 9/9/2024
5428- !
5429- ! TBD: PRECOMPUTE (TC-TA), (QC-QA), MAPL_VIREPS*TC, (1+MAPL_VIREPS*QC) ?? OR LEAVE OPTIMIZATION TO COMPILER??
5430- !
5431- ! TBD: CHANGE ORDER OF "if" BLOCK, "select" BLOCK, and "do" LOOP?? (Note: "do" LOOP N IS ONLY 1..4)
5432- !
5433- ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
5434-
5435-
54365411 if (CATCH_INTERNAL_STATE% CATCH_OFFLINE /= 0 ) then
54375412
54385413 ! Catchment in offline (land-only) mode
0 commit comments