Skip to content

backout the timestamp on rpointer files until alpha05c, #314

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
jedwards4b merged 2 commits into from
Nov 6, 2024
Merged

backout the timestamp on rpointer files until alpha05c, #314

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
3e3ca18
backout the timestamp on rpointer files until alpha05c, remove unused…
jedwards4b Nov 6, 2024
ffed006
Merge branch 'main' into backout_rpointer_timestamp
jedwards4b Nov 6, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 0 additions & 1 deletion datm/datm_datamode_clmncep_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -102,7 +102,6 @@ module datm_datamode_clmncep_mod


character(*), parameter :: nullstr = 'null'
character(*), parameter :: rpfile = 'rpointer.atm'
character(*), parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion datm/datm_datamode_cplhist_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -41,7 +41,6 @@ module datm_datamode_cplhist_mod
real(r8), pointer :: Faxa_swnet(:) => null()

character(*), parameter :: nullstr = 'null'
character(*), parameter :: rpfile = 'rpointer.atm'
character(*), parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion datm/datm_datamode_era5_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -59,7 +59,6 @@ module datm_datamode_era5_mod
real(r8) , parameter :: rhofw = SHR_CONST_RHOFW ! density of fresh water ~ kg/m^3

character(*), parameter :: nullstr = 'undefined'
character(*), parameter :: rpfile = 'rpointer.atm'
character(*), parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion datm/datm_datamode_gefs_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -49,7 +49,6 @@ module datm_datamode_gefs_mod
real(r8) , parameter :: rhofw = SHR_CONST_RHOFW ! density of fresh water ~ kg/m^3

character(*), parameter :: nullstr = 'undefined'
character(*), parameter :: rpfile = 'rpointer.atm'
character(*), parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion datm/datm_datamode_jra_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -58,7 +58,6 @@ module datm_datamode_jra_mod
real(R8) , parameter :: dLWarc = -5.000_R8

character(*), parameter :: nullstr = 'null'
character(*), parameter :: rpfile = 'rpointer.atm'
character(*), parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion datm/datm_datamode_simple_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -76,7 +76,6 @@ module datm_datamode_simple_mod
real(R8) , parameter :: dLWarc = -5.000_R8

character(*), parameter :: nullstr = 'null'
character(*), parameter :: rpfile = 'rpointer.atm'
character(*), parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion docn/docn_datamode_copyall_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,6 @@ module docn_datamode_copyall_mod
real(r8) , parameter :: ocnsalt = shr_const_ocn_ref_sal ! ocean reference salinity

character(*) , parameter :: nullstr = 'null'
character(*) , parameter :: rpfile = 'rpointer.ocn'
character(*) , parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion docn/docn_datamode_cplhist_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,6 @@ module docn_datamode_cplhist_mod
real(r8) , parameter :: ocnsalt = shr_const_ocn_ref_sal ! ocean reference salinity

character(*) , parameter :: nullstr = 'null'
character(*) , parameter :: rpfile = 'rpointer.ocn'
character(*) , parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion docn/docn_datamode_multilev_dom_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -40,7 +40,6 @@ module docn_datamode_multilev_dom_mod

! constants
character(*) , parameter :: nullstr = 'null'
character(*) , parameter :: rpfile = 'rpointer.ocn'
character(*) , parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion docn/docn_datamode_multilev_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -32,7 +32,6 @@ module docn_datamode_multilev_mod

! constants
character(*) , parameter :: nullstr = 'null'
character(*) , parameter :: rpfile = 'rpointer.ocn'
character(*) , parameter :: u_FILE_u = &
__FILE__

Expand Down
1 change: 0 additions & 1 deletion drof/rof_comp_nuopc.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -81,7 +81,6 @@ module cdeps_drof_comp

logical :: diagnose_data = .true.
integer , parameter :: main_task=0 ! task number of main task
character(*) , parameter :: rpfile = 'rpointer.rof'
#ifdef CESMCOUPLED
character(*) , parameter :: modName = "(rof_comp_nuopc)"
#else
Expand Down
6 changes: 4 additions & 2 deletions dshr/dshr_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1058,6 +1058,7 @@ subroutine dshr_restart_write(rpfile, case_name, model_name, inst_suffix, ymd, t
type(io_desc_t) :: pio_iodesc
integer :: oldmode
integer :: rcode
character(len=CS) :: lrpfile
character(*), parameter :: F00 = "('(dshr_restart_write) ',2a,2(i0,2x))"
!-------------------------------------------------------------------------------

Expand All @@ -1067,10 +1068,11 @@ subroutine dshr_restart_write(rpfile, case_name, model_name, inst_suffix, ymd, t

call shr_cal_datetod2string(date_str, ymd, tod)
write(rest_file_model ,"(7a)") trim(case_name),'.', trim(model_name),trim(inst_suffix),'.r.', trim(date_str),'.nc'

! temporarily turn off timestamp, remove this code and comment in alpha05c
lrpfile = rpfile(:len_trim(rpfile)-17)
! write restart info to rpointer file
if (my_task == main_task) then
open(newunit=nu, file=trim(rpfile), form='formatted')
open(newunit=nu, file=trim(lrpfile), form='formatted')
write(nu,'(a)') rest_file_model
close(nu)
write(logunit,F00)' writing ',trim(rest_file_model)
Expand Down
1 change: 0 additions & 1 deletion dwav/wav_comp_nuopc.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -83,7 +83,6 @@ module cdeps_dwav_comp
! constants
logical :: diagnose_data = .true.
integer , parameter :: main_task=0 ! task number of main task
character(*) , parameter :: rpfile = 'rpointer.wav'
#ifdef CESMCOUPLED
character(*) , parameter :: modName = "(wav_comp_nuopc)"
#else
Expand Down