From 9b56598dc1f3a50a42eca32268b2e7cbf1967936 Mon Sep 17 00:00:00 2001 From: Bin Liu Date: Fri, 28 Oct 2022 17:14:57 +0000 Subject: [PATCH] Update to output timestr in yyyymmdd.hhmmss for the internal tracker output (fort.602, the partial atcf track file). --- moving_nest/fv_tracker.F90 | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/moving_nest/fv_tracker.F90 b/moving_nest/fv_tracker.F90 index f00c9da57..40780864d 100644 --- a/moving_nest/fv_tracker.F90 +++ b/moving_nest/fv_tracker.F90 @@ -30,7 +30,7 @@ module fv_tracker_mod use constants_mod, only: pi=>pi_8, rad_to_deg, deg_to_rad use time_manager_mod, only: time_type, get_time, set_time, operator(+), & - operator(-), operator(/), time_type_to_real + operator(-), operator(/), time_type_to_real, date_to_string use mpp_mod, only: mpp_error, stdout, FATAL, WARNING, NOTE, & mpp_root_pe, mpp_npes, mpp_pe, mpp_chksum, & mpp_get_current_pelist, & @@ -744,24 +744,23 @@ subroutine output_partial_atcfunix(Atm,Time, & integer, intent(in) :: ids,ide,jds,jde,kds,kde integer, intent(in) :: ims,ime,jms,jme,kms,kme integer, intent(in) :: its,ite,jts,jte,kts,kte - integer :: days, seconds - real :: sec + character*15 timestr character*255 message - call get_time(fv_time, seconds, days) - sec=seconds -313 format(F11.2,", ", & + ! timestr in the format of yyyymmdd.hhmmss + timestr=date_to_string(fv_time) +313 format(A15,", ", & "W10 = ",F7.3," kn, PMIN = ",F8.3," mbar, ", & "LAT = ",F6.3,A1,", LON = ",F7.3,A1,", ", & "RMW = ",F7.3," nmi") if (Tracker(n)%tracker_fixlon .gt. 180.0) then - write(Moving_nest(n)%mn_flag%outatcf_lun+Atm%grid_number,313) sec, & + write(Moving_nest(n)%mn_flag%outatcf_lun+Atm%grid_number,313) timestr, & Tracker(n)%tracker_vmax*mps2kn,Tracker(n)%tracker_pmin/100., & abs(Tracker(n)%tracker_fixlat),get_lat_ns(Tracker(n)%tracker_fixlat), & abs(Tracker(n)%tracker_fixlon-360.0),get_lon_ew(Tracker(n)%tracker_fixlon-360.0), & Tracker(n)%tracker_rmw*km2nmi else - write(Moving_nest(n)%mn_flag%outatcf_lun+Atm%grid_number,313) sec, & + write(Moving_nest(n)%mn_flag%outatcf_lun+Atm%grid_number,313) timestr, & Tracker(n)%tracker_vmax*mps2kn,Tracker(n)%tracker_pmin/100., & abs(Tracker(n)%tracker_fixlat),get_lat_ns(Tracker(n)%tracker_fixlat), & abs(Tracker(n)%tracker_fixlon),get_lon_ew(Tracker(n)%tracker_fixlon), &