+Rescaled volume transports for tracer advection

Dimensionally rescaled the timesteps and volume transports used in the SIS2 tracer advection cod, for expanded dimensional consistency testing and code simplification. Also rescaled some tracer transport diagnostics. All answers are bitwise identical, but there is a new unit_scale_type argument in one initialization routine.
NOAA-GFDL · Nov 1, 2019 · ad86a46 · ad86a46
1 parent a79d884
commit ad86a46
Show file tree

Hide file tree

Showing 4 changed files with 177 additions and 187 deletions.
diff --git a/src/SIS_dyn_trans.F90 b/src/SIS_dyn_trans.F90
@@ -2237,10 +2237,10 @@ subroutine SIS_dyn_trans_init(Time, G, US, IG, param_file, diag, CS, output_dir,
       call SIS_B_dyn_init(CS%Time, G, param_file, CS%diag, CS%SIS_B_dyn_CSp)
     endif
     if (CS%merged_cont) then
-      call SIS_transport_init(CS%Time, G, param_file, CS%diag, CS%SIS_transport_CSp, &
+      call SIS_transport_init(CS%Time, G, US, param_file, CS%diag, CS%SIS_transport_CSp, &
                               continuity_CSp=CS%continuity_CSp, cover_trans_CSp=CS%cover_trans_CSp)
     else
-      call SIS_transport_init(CS%Time, G, param_file, CS%diag, CS%SIS_transport_CSp, &
+      call SIS_transport_init(CS%Time, G, US, param_file, CS%diag, CS%SIS_transport_CSp, &
                               continuity_CSp=CS%continuity_CSp)
     endif