! source file: /gxfs_work1/geomar/smomw113/UVic_ESCM/2.9_dk_0814/updates/11_valley/source/mom/tracer_N2O.F subroutine tracer_N2O (so2,fo2,i,k,j,jrow &, rnpn2o,rn2op_h,rn2op_l & ) !======================================================================= ! compute N2O sms ! input: ! so2 = ! fo2 = ! i, k, j, jrow ! oassim ! rnpn2o = ! rn2o_h = ! rn2o_l = !======================================================================= ! Later do the following in tracer.F ! delete lines 46-55 ! delete lines 1346-1520 (currently within #if 0 #endif ! currently I leave some code inside tracer.F ! lines 1671-171 ! lines 870-873 return end