Skip to content

Commit

Permalink
Sync w/ ESCOMP, add cpl_scalars for CSG and regional ATM domains (NOA…
Browse files Browse the repository at this point in the history
…A-EMC#115)

* add cpl_scalar for tiled grids, other minor fixes
* add new cpl_scalar for mediator history files for tiled gridded domains
* remove unnecessary trims, fix minor typos and indentation
* set ntile=0 when ntile scalar doesn't exist
* modify dstmask for lnd->atm in UFS

Co-authored-by: uturuncoglu <turuncu@ucar.edu>
  • Loading branch information
DeniseWorthen and uturuncoglu committed Jun 7, 2024
1 parent 6384ff4 commit 3ab23f4
Showing 1 changed file with 2 additions and 3 deletions.
5 changes: 2 additions & 3 deletions mediator/med_phases_restart_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -344,12 +344,11 @@ subroutine med_phases_restart_write(gcomp, rc)

do n = 2,ncomps
if (is_local%wrap%comp_present(n)) then
nx = is_local%wrap%nx(n)
ny = is_local%wrap%ny(n)
if (is_local%wrap%ntile(n) > 0) then
nx = is_local%wrap%ntile(n)*is_local%wrap%ny(n)*is_local%wrap%nx(n)
ny = 1
else
nx = is_local%wrap%nx(n)
ny = is_local%wrap%ny(n)
end if
! Write import field bundles
if (ESMF_FieldBundleIsCreated(is_local%wrap%FBimp(n,n),rc=rc)) then
Expand Down

0 comments on commit 3ab23f4

Please sign in to comment.