Skip to content

Commit 0cf2abb

Browse files
committed
cleaned up notes related to MOSFC_EXTRA_DERIVS_LAND (GEOS_CatchGridComp.F90)
1 parent 35d08c0 commit 0cf2abb

File tree

1 file changed

+0
-25
lines changed
  • GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp

1 file changed

+0
-25
lines changed

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/GEOS_CatchGridComp.F90

Lines changed: 0 additions & 25 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)