Skip to content
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.

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

backout the timestamp on rpointer files until alpha05c, #314

Merged
merged 2 commits into from
Nov 6, 2024
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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
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
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
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
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
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
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
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
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
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
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
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
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
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
Loading