Skip to content

Commit a9b7f2e

Browse files
committed
Adding airt conversion for ESMF, and required vars
1 parent 5585023 commit a9b7f2e

1 file changed

Lines changed: 5 additions & 0 deletions

File tree

src/Hydro/schism_step.F90

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -535,6 +535,9 @@ subroutine schism_step(it)
535535
if(ihconsv/=0) then
536536
!Assume all vars in sflux*.nc are available from atmos model or read in from atmos.nc,
537537
!and this routine compute other fluxes
538+
#ifdef USE_ATMOS
539+
airt2=airt2-273.15d0 !Conv K to C, ESMF send with unit K
540+
#endif
538541
call surf_fluxes2 (wtime2,windx2,windy2,pr2,airt2, &
539542
&shum2,srad,fluxsu,fluxlu,hradu,hradd,tauxz,tauyz, &
540543
#ifdef PREC_EVAP
@@ -582,6 +585,8 @@ subroutine schism_step(it)
582585
windx1=windx2
583586
windy1=windy2
584587
pr1=pr2
588+
airt1=airt2
589+
shum1=shum2
585590

586591
!Read in next record
587592
#ifndef USE_ATMOS

0 commit comments

Comments
 (0)