Need to figure otu why answers are changing

NOAA-GFDL · Oct 13, 2016 · cb796e0 · cb796e0
1 parent ecdde94
commit cb796e0
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/MOM.F90 b/src/core/MOM.F90
@@ -2538,7 +2538,7 @@ subroutine initialize_MOM(Time, param_file, dirs, CS, Time_in, do_online_out)
   if(present(do_online_out)) do_online_out=CS%do_online
 
   if(.not. CS%do_online) then
-    call offline_transport_init(param_file, CS%offline_CSp, CS%diabatic_CSp, G, GV)
+    call offline_transport_init(param_file, CS%offline_CSp, CS%diabatic_CSp%diabatic_aux_CSp, G, GV)
     call register_diags_offline_transport(Time, CS%diag, CS%offline_CSp)
   endif
 

diff --git a/src/tracer/MOM_offline_control.F90 b/src/tracer/MOM_offline_control.F90
@@ -285,7 +285,7 @@ subroutine offline_transport_init(param_file, CS, diabatic_aux_CSp, G, GV)
     if(.not. CS%fields_are_offset) CS%ridx_snap = CS%start_index
 
     ! Copy over parameters from other control structures
-    if(associated(diabatic_CSp%diabatic_aux_CSp)) then
+    if(associated(diabatic_aux_CSp)) then
       CS%evap_CFL_limit = diabatic_aux_CSp%evap_CFL_limit
       CS%minimum_forcing_depth = diabatic_aux_CSp%minimum_forcing_depth
     endif