diff --git a/docn/docn_datamode_som_mod.F90 b/docn/docn_datamode_som_mod.F90 index b91ce134d..672c58d4d 100644 --- a/docn/docn_datamode_som_mod.F90 +++ b/docn/docn_datamode_som_mod.F90 @@ -34,6 +34,7 @@ module docn_datamode_som_mod real(r8), pointer :: So_v(:) => null() real(r8), pointer :: So_dhdx(:) => null() real(r8), pointer :: So_dhdy(:) => null() + real(r8), pointer :: So_bldepth(:) => null() real(r8), pointer :: Fioo_q(:) => null() real(r8), pointer :: So_fswpen(:) => null() @@ -98,6 +99,7 @@ subroutine docn_datamode_som_advertise(importState, exportState, fldsimport, fld call dshr_fldList_add(fldsExport, 'So_v' ) call dshr_fldList_add(fldsExport, 'So_dhdx' ) call dshr_fldList_add(fldsExport, 'So_dhdy' ) + call dshr_fldList_add(fldsExport, 'So_bldepth' ) call dshr_fldList_add(fldsExport, 'Fioo_q' ) call dshr_fldList_add(fldsExport, 'So_fswpen' ) @@ -189,6 +191,8 @@ subroutine docn_datamode_som_init_pointers(importState, exportState, sdat, ocn_f if (chkerr(rc,__LINE__,u_FILE_u)) return call dshr_state_getfldptr(exportState, 'So_dhdy' , fldptr1=So_dhdy , rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) return + call dshr_state_getfldptr(exportState, 'So_bldepth' , fldptr1=So_bldepth , rc=rc) + if (chkerr(rc,__LINE__,u_FILE_u)) return call dshr_state_getfldptr(exportState, 'Fioo_q' , fldptr1=Fioo_q , rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) return @@ -289,6 +293,7 @@ subroutine docn_datamode_som_advance(importState, exportState, clock, restart_re ! save somtp to restart file somtp(n) = So_t(n) + So_bldepth(n) = strm_h(n) endif end do deallocate(tfreeze)