[Dart-dev] [4325] DART/trunk/models/rose: These routines are no longer needed.
nancy at ucar.edu
nancy at ucar.edu
Tue Mar 23 11:14:07 MDT 2010
Revision: 4325
Author: thoar
Date: 2010-03-23 11:14:07 -0600 (Tue, 23 Mar 2010)
Log Message:
-----------
These routines are no longer needed.
trans_time.f90 and nmlbld_rose.f90 have been
incorporated into the dart_to_model.f90 code.
The trans_perfect_ics.f90 functionality is totally
duplicated in model_to_dart.f90 - by simply renaming
the hardwired output filename ...
./model_to_dart.f90
mv temp_ud perfect_ics
Removed Paths:
-------------
DART/trunk/models/rose/nmlbld_rose.f90
DART/trunk/models/rose/trans_perfect_ics.f90
DART/trunk/models/rose/trans_time.f90
DART/trunk/models/rose/work/mkmf_nmlbld_rose
DART/trunk/models/rose/work/mkmf_trans_perfect_ics
DART/trunk/models/rose/work/mkmf_trans_time
DART/trunk/models/rose/work/path_names_nmlbld_rose
DART/trunk/models/rose/work/path_names_trans_perfect_ics
DART/trunk/models/rose/work/path_names_trans_time
-------------- next part --------------
Deleted: DART/trunk/models/rose/nmlbld_rose.f90
===================================================================
--- DART/trunk/models/rose/nmlbld_rose.f90 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/nmlbld_rose.f90 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,73 +0,0 @@
-! DART software - Copyright \xA9 2004 - 2010 UCAR. This open source software is
-! provided by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-
-program nmlbld_rose
-
-! <next few lines under version control, do not edit>
-! $URL$
-! $Id$
-! $Revision$
-! $Date$
-
- use types_mod, only: r8, pi
- use utilities_mod, only: open_file, close_file, &
- error_handler, E_ERR, E_MSG, E_WARN, &
- initialize_utilities, register_module, &
- find_namelist_in_file, check_namelist_read
-
- implicit none
-
-! version controlled file description for error handling, do not edit
-character(len=128), parameter :: &
- source = "$URL$", &
- revision = "$Revision$", &
- revdate = "$Date$"
-
- logical :: output_prog_diag = .false.
- character (len=50) :: input_dir = '../input_current/'
- character (len=50) :: out_dir = '/ptmp/tmatsuo/rose/'
- character (len=30) :: restart_file = 'dyn_restart_001-1999.nc'
- real(kind=r8) :: amp_tune = 1.
- real(kind=r8) :: pha_tune = 0.
- real(kind=r8) :: target_time = 0.125 ![hr]
- integer :: ntime = 8
- integer :: ens_element = 1
-
- namelist /rose_nml/ target_time, &
- input_dir, out_dir, restart_file,&
- output_prog_diag, &
- amp_tune, pha_tune, &
- ntime, ens_element
-
- integer :: iunit, io
- character(len=129) :: err_string, nml_string
-
- call initialize_utilities('nmlbld_rose')
- call register_module(source,revision,revdate)
-
- ! Read the namelist entry
- call find_namelist_in_file("rose.nml_default", "rose_nml", iunit)
- read(iunit, nml = rose_nml, iostat = io)
- call check_namelist_read(iunit, io, "rose_nml")
-
- ! Read another piece of information and add to namelist.
-
- read(*,*) target_time
- read(*,*) ens_element
-
- iunit = open_file('rose.nml',action = 'write')
-
- write(iunit, '("&rose_nml")')
- write(iunit, '("ntime = ", i2)') ntime
- write(iunit, '("output_prog_diag = ", l)') output_prog_diag
- write(iunit, '("input_dir = ", 3a)') "'",trim(input_dir),"'"
- write(iunit, '("out_dir = ", 3a)') "'",trim(out_dir),"'"
- write(iunit, '("restart_file = ", 3a)') "'",trim(restart_file),"'"
- write(iunit, '("amp_tune = ", f15.10)') amp_tune
- write(iunit, '("pha_tune = ", f15.10)') pha_tune
- write(iunit, '("ens_element = ", i3)') ens_element
- write(iunit, '("target_time = ", f15.10,"/")') target_time
-
-
-end program nmlbld_rose
Deleted: DART/trunk/models/rose/trans_perfect_ics.f90
===================================================================
--- DART/trunk/models/rose/trans_perfect_ics.f90 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/trans_perfect_ics.f90 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,95 +0,0 @@
-! DART software - Copyright \xA9 2004 - 2010 UCAR. This open source software is
-! provided by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-
-program trans_perfect_ics
-
-! <next few lines under version control, do not edit>
-! $URL$
-! $Id$
-! $Revision$
-! $Date$
-
-!----------------------------------------------------------------------
-! purpose: interface between ROSE and DART
-!
-! method: Read the [ORIGINAL*] ROSE restart file.
-! Reform fields into a state vector.
-! Write out state vector in "proprietary" format for DART
-!
-! based on trans_pv_sv for CAM
-!
-! * Rose restart files have two different format:
-! ORIGINAL ROSE restart files were provided by Dan Marsh (ACD)
-! and need to set old_restart = .true. in "read_ROSE_restart"
-! in model_mod.f90.
-!----------------------------------------------------------------------
-
-use types_mod, only : r8
-use utilities_mod, only : get_unit, initialize_utilities
-use model_mod, only : model_type, init_model_instance, read_ROSE_restart, &
- prog_var_to_vector
-use assim_model_mod, only : assim_model_type, static_init_assim_model, &
- init_assim_model, get_model_size , &
- set_model_state_vector, write_state_restart, &
- set_model_time, open_restart_read, open_restart_write, &
- close_restart, aread_state_restart
-use time_manager_mod, only : time_type, print_time
-
-implicit none
-
-! version controlled file description for error handling, do not edit
-character(len=128), parameter :: &
- source = "$URL$", &
- revision = "$Revision$", &
- revdate = "$Date$"
-
-character (len = 128) :: &
- file_name = 'rose_restart.nc', &
- file_out = 'perfect_ics'
-
-! Temporary allocatable storage to read in a native format for ROSE state
-type(assim_model_type) :: x
-type(model_type) :: var
-type(time_type) :: model_time
-real(r8), allocatable :: x_state(:)
-integer :: file_unit, x_size
-
-call initialize_utilities(progname='trans_perfect_ics', output_flag=.true.)
-
-! Static init assim model calls static_init_model
-PRINT*,'static_init_assim_model in trans_perfect_ics'
-call static_init_assim_model()
-
-! Initialize the assim_model instance
-call init_assim_model(x)
-
-! Allocate the local state vector
-x_size = get_model_size()
-allocate(x_state(x_size))
-
-! Allocate the instance of the ROSE model type for storage
-call init_model_instance(var)
-
-! Read the file ROSE state fragments into var
-call read_ROSE_restart(file_name, var, model_time)
-
-! transform fields into state vector for DART
-call prog_var_to_vector(var, x_state)
-
-! x%state_vector <- x_state
-call set_model_state_vector(x, x_state)
-
-! x%time <- x_time
-PRINT*,'In trans_perfect_ics model_time;'
-call print_time(model_time)
-call set_model_time (x, model_time)
-
-file_unit = open_restart_write(file_out)
-PRINT*,'In trans_perfect_ics file_out unit = ',file_unit
-PRINT*,' '
-! write out state vector in "proprietary" format
-call write_state_restart(x, file_unit)
-call close_restart(file_unit)
-
-end program trans_perfect_ics
Deleted: DART/trunk/models/rose/trans_time.f90
===================================================================
--- DART/trunk/models/rose/trans_time.f90 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/trans_time.f90 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,65 +0,0 @@
-! DART software - Copyright \xA9 2004 - 2010 UCAR. This open source software is
-! provided by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-
-program trans_time
-
-! <next few lines under version control, do not edit>
-! $URL$
-! $Revision$
-! $Date$
-
-!----------------------------------------------------------------------
-! purpose: interface between ROSE and DART time and date
-!
-! method: Read DART 'state vector' file (proprietary format).
-! Reform time and date into form needed by ROSE.
-! Write out ROSE traget time and date to file for use by run-pc.csh
-!
-! Based on "trans_time" for CAM.
-!
-!----------------------------------------------------------------------
-
-use time_manager_mod, only : time_type, get_time, operator(-)
-use assim_model_mod, only : static_init_assim_model, init_assim_model, &
- open_restart_read, close_restart, &
- get_model_time, read_state_restart, assim_model_type
-use utilities_mod, only : get_unit, initialize_utilities
-use types_mod, only : r8
-
-implicit none
-
-! version controlled file description for error handling, do not edit
-character(len=128), parameter :: &
- source = "$URL$", &
- revision = "$Revision$", &
- revdate = "$Date$"
-
-integer :: file_unit, day, second
-real(r8) :: target_hours
-type(time_type) :: dart_time(2), forecast_length
-character (len = 128) :: file_name = 'temp_ic', file_out = 'times'
-type(assim_model_type) :: x
-
-call initialize_utilities(progname='trans_time', output_flag=.true.)
-
-! Static init assim model calls static_init_model
-call static_init_assim_model()
-call init_assim_model(x)
-
-file_unit = open_restart_read(file_name)
-call read_state_restart(x, file_unit, dart_time(1)) ! target_time
-dart_time(2) = get_model_time(x) ! current model_time
-call close_restart(file_unit)
-
-file_unit = get_unit()
-open(unit = file_unit, file = file_out)
-forecast_length = dart_time(1) - dart_time(2)
-call get_time(forecast_length, second, day)
-target_hours = real(day)*24._r8 + real(second)/3600._r8
-PRINT*,'trans_time: forecast length = ', day, second, &
- 'trans_time: hours =', target_hours
-write (file_unit,'(f20.15)') target_hours
-close(file_unit)
-
-end program trans_time
Deleted: DART/trunk/models/rose/work/mkmf_nmlbld_rose
===================================================================
--- DART/trunk/models/rose/work/mkmf_nmlbld_rose 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/work/mkmf_nmlbld_rose 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,18 +0,0 @@
-#!/bin/csh
-#
-# DART software - Copyright \xA9 2004 - 2010 UCAR. This open source software is
-# provided by UCAR, "as is", without charge, subject to all terms of use at
-# http://www.image.ucar.edu/DAReS/DART/DART_download
-#
-# $Id$
-
-../../../mkmf/mkmf -p nmlbld_rose -t ../../../mkmf/mkmf.template -c "-Duse_netCDF" \
- -a "../../.." path_names_nmlbld_rose
-
-exit $status
-
-# <next few lines under version control, do not edit>
-# $URL$
-# $Revision$
-# $Date$
-
Deleted: DART/trunk/models/rose/work/mkmf_trans_perfect_ics
===================================================================
--- DART/trunk/models/rose/work/mkmf_trans_perfect_ics 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/work/mkmf_trans_perfect_ics 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,18 +0,0 @@
-#!/bin/csh
-#
-# DART software - Copyright \xA9 2004 - 2010 UCAR. This open source software is
-# provided by UCAR, "as is", without charge, subject to all terms of use at
-# http://www.image.ucar.edu/DAReS/DART/DART_download
-#
-# $Id$
-
-../../../mkmf/mkmf -p trans_perfect_ics -t ../../../mkmf/mkmf.template -c "-Duse_netCDF" \
- -a "../../.." path_names_trans_perfect_ics
-
-exit $status
-
-# <next few lines under version control, do not edit>
-# $URL$
-# $Revision$
-# $Date$
-
Deleted: DART/trunk/models/rose/work/mkmf_trans_time
===================================================================
--- DART/trunk/models/rose/work/mkmf_trans_time 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/work/mkmf_trans_time 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,18 +0,0 @@
-#!/bin/csh
-#
-# DART software - Copyright \xA9 2004 - 2010 UCAR. This open source software is
-# provided by UCAR, "as is", without charge, subject to all terms of use at
-# http://www.image.ucar.edu/DAReS/DART/DART_download
-#
-# $Id$
-
-../../../mkmf/mkmf -p trans_time -t ../../../mkmf/mkmf.template -c "-Duse_netCDF" \
- -a "../../.." path_names_trans_time
-
-exit $status
-
-# <next few lines under version control, do not edit>
-# $URL$
-# $Revision$
-# $Date$
-
Deleted: DART/trunk/models/rose/work/path_names_nmlbld_rose
===================================================================
--- DART/trunk/models/rose/work/path_names_nmlbld_rose 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/work/path_names_nmlbld_rose 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,5 +0,0 @@
-common/types_mod.f90
-models/rose/nmlbld_rose.f90
-mpi_utilities/null_mpi_utilities_mod.f90
-time_manager/time_manager_mod.f90
-utilities/utilities_mod.f90
Deleted: DART/trunk/models/rose/work/path_names_trans_perfect_ics
===================================================================
--- DART/trunk/models/rose/work/path_names_trans_perfect_ics 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/work/path_names_trans_perfect_ics 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,18 +0,0 @@
-assim_model/assim_model_mod.f90
-common/types_mod.f90
-location/threed_sphere/location_mod.f90
-models/rose/dynamics_testing_DA/dynam.mod.f
-models/rose/dynamics_testing_DA/ncdf.mod.f
-models/rose/dynamics_testing_DA/ncdf.mod.f
-models/rose/dynamics_testing_DA/params.mod.f
-models/rose/dynamics_testing_DA/phys.mod.f
-models/rose/dynamics_testing_DA/restart.mod.f
-models/rose/dynamics_testing_DA/wcont.f
-models/rose/model_mod.f90
-models/rose/trans_perfect_ics.f90
-mpi_utilities/null_mpi_utilities_mod.f90
-obs_kind/obs_kind_mod.f90
-random_nr/random_nr_mod.f90
-random_seq/random_seq_mod.f90
-time_manager/time_manager_mod.f90
-utilities/utilities_mod.f90
Deleted: DART/trunk/models/rose/work/path_names_trans_time
===================================================================
--- DART/trunk/models/rose/work/path_names_trans_time 2010-03-23 04:58:02 UTC (rev 4324)
+++ DART/trunk/models/rose/work/path_names_trans_time 2010-03-23 17:14:07 UTC (rev 4325)
@@ -1,17 +0,0 @@
-assim_model/assim_model_mod.f90
-common/types_mod.f90
-location/threed_sphere/location_mod.f90
-models/rose/dynamics_testing_DA/dynam.mod.f
-models/rose/dynamics_testing_DA/ncdf.mod.f
-models/rose/dynamics_testing_DA/ncdf.mod.f
-models/rose/dynamics_testing_DA/params.mod.f
-models/rose/dynamics_testing_DA/phys.mod.f
-models/rose/dynamics_testing_DA/restart.mod.f
-models/rose/dynamics_testing_DA/wcont.f
-models/rose/model_mod.f90
-models/rose/trans_time.f90
-mpi_utilities/null_mpi_utilities_mod.f90
-random_nr/random_nr_mod.f90
-random_seq/random_seq_mod.f90
-time_manager/time_manager_mod.f90
-utilities/utilities_mod.f90
More information about the Dart-dev
mailing list