[Dart-dev] [4298] DART/trunk/models/rose: rose compiles on coral with pgf90 9. 0-4 64-bit target on x86-64 Linux -tp p7-64
nancy at ucar.edu
nancy at ucar.edu
Fri Feb 26 17:12:22 MST 2010
Revision: 4298
Author: thoar
Date: 2010-02-26 17:12:22 -0700 (Fri, 26 Feb 2010)
Log Message:
-----------
rose compiles on coral with pgf90 9.0-4 64-bit target on x86-64 Linux -tp p7-64
Modified Paths:
--------------
DART/trunk/models/rose/model_mod.f90
DART/trunk/models/rose/work/path_names_create_fixed_network_seq
DART/trunk/models/rose/work/path_names_create_obs_sequence
DART/trunk/models/rose/work/path_names_filter
DART/trunk/models/rose/work/path_names_obs_diag
DART/trunk/models/rose/work/path_names_perfect_model_obs
DART/trunk/models/rose/work/path_names_preprocess
DART/trunk/models/rose/work/path_names_rose
DART/trunk/models/rose/work/path_names_trans_pv_sv
DART/trunk/models/rose/work/path_names_trans_sv_pv
DART/trunk/models/rose/work/path_names_wakeup_filter
DART/trunk/models/rose/work/quickbuild.csh
-------------- next part --------------
Modified: DART/trunk/models/rose/model_mod.f90
===================================================================
--- DART/trunk/models/rose/model_mod.f90 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/model_mod.f90 2010-02-27 00:12:22 UTC (rev 4298)
@@ -28,10 +28,10 @@
do_output, find_namelist_in_file, check_namelist_read, &
do_nml_file, do_nml_term
use random_seq_mod, only : random_seq_type, init_random_seq, random_gaussian
+
! ROSE Modules
-!use params, only : nx, ny, nz, nbcon
use params, only : nx, ny, nz, ntime
-
+
!-----------------------------------------------------------------------
implicit none
@@ -52,9 +52,10 @@
get_close_maxdist_init, &
get_close_obs_init, &
get_close_obs, &
- ens_mean_for_model, &
- !ROSE specific routines!
- model_type, &
+ ens_mean_for_model
+
+! ROSE-specific routines
+public :: model_type, &
prog_var_to_vector, &
vector_to_prog_var, &
read_ROSE_restart, &
@@ -69,7 +70,6 @@
end type model_type
!----------------------------------------------------------------------
-
! Global storage for describing ROSE model class
integer :: model_size
type(time_type) :: Time_step_ROSE
@@ -105,14 +105,16 @@
integer, parameter :: TYPE_U0 = 0, TYPE_V0 = 1, TYPE_T0 = 2, &
TYPE_U = 3, TYPE_V = 4, TYPE_T = 5, &
TYPE_Q_H = 6, TYPE_Q_OH = 7, TYPE_Q_O = 8
+
!----------------------------------------------------------------------
-
! version controlled file description for error handling, do not edit
character(len=128), parameter :: &
source = "$URL$", &
revision = "$Revision$", &
revdate = "$Date$"
+character(len = 129) :: errstring
+
contains
!==================================================================
@@ -134,7 +136,7 @@
real(r8) :: d_lat, d_lon
real(r8) :: z_m
real(r8) :: dz = 2100.0_r8, zbot = 16800.0_r8
-character(len=129) :: err_string, nml_string
+character(len=129) :: nml_string
! Read the namelist rose_nml from the file rose.nml
call find_namelist_in_file("rose.nml", "rose_nml", iunit)
@@ -439,7 +441,6 @@
integer :: u1VarID, v1VarID, t1VarID, uVarID, vVarID, tVarID
integer :: qnHVarID, qnOHVarID, qnOVarID
-character(len=129) :: errstring
character(len=8) :: crdate ! needed by F90 DATE_AND_TIME intrinsic
character(len=10) :: crtime ! needed by F90 DATE_AND_TIME intrinsic
character(len=5) :: crzone ! needed by F90 DATE_AND_TIME intrinsic
@@ -768,7 +769,6 @@
real(r8), intent(out) :: x(:)
integer :: i, j, k, nf, indx
-character(len=129) :: errstring
! Do order as ps, t, u, v, q, tracers to be consistent with b-grid
@@ -866,6 +866,7 @@
end subroutine end_model_instance
+
subroutine update_ROSE_restart(file_name, var)
!=======================================================================
! update ROSE restart file fields
@@ -963,7 +964,7 @@
ncerr = nf_close(restart_id)
!! error_handler !!!!!!!
if (ncerr .ne. NF_NOERR) then
- print *, nf_strerror(iret)
+ print *, nf_strerror(ncerr)
stop
endif
!!!!!!!!!!!!!!!!!!!!!!!!
@@ -1098,7 +1099,7 @@
!! error_handler !!!!!!!
if (ncerr .ne. NF_NOERR) then
- print *, nf_strerror(iret)
+ print *, nf_strerror(ncerr)
stop
endif
!!!!!!!!!!!!!!!!!!!!!!!!
Modified: DART/trunk/models/rose/work/path_names_create_fixed_network_seq
===================================================================
--- DART/trunk/models/rose/work/path_names_create_fixed_network_seq 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_create_fixed_network_seq 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,13 +1,15 @@
-obs_sequence/create_fixed_network_seq.f90
-obs_sequence/obs_sequence_mod.f90
-obs_kind/obs_kind_mod.f90
-obs_def/obs_def_mod.f90
assim_model/assim_model_mod.f90
-models/rose/model_mod.f90
common/types_mod.f90
location/threed_sphere/location_mod.f90
+models/rose/dynamics_testing_DA/ncdf.mod.f
+models/rose/dynamics_testing_DA/restart.mod.f
+models/rose/model_mod.f90
+mpi_utilities/null_mpi_utilities_mod.f90
+obs_def/obs_def_mod.f90
+obs_kind/obs_kind_mod.f90
+obs_sequence/create_fixed_network_seq.f90
+obs_sequence/obs_sequence_mod.f90
+random_nr/random_nr_mod.f90
random_seq/random_seq_mod.f90
-random_nr/random_nr_mod.f90
time_manager/time_manager_mod.f90
utilities/utilities_mod.f90
-mpi_utilities/null_mpi_utilities_mod.f90
Modified: DART/trunk/models/rose/work/path_names_create_obs_sequence
===================================================================
--- DART/trunk/models/rose/work/path_names_create_obs_sequence 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_create_obs_sequence 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,15 +1,17 @@
-obs_sequence/create_obs_sequence.f90
+assim_model/assim_model_mod.f90
+common/types_mod.f90
ensemble_manager/ensemble_manager_mod.f90
-obs_sequence/obs_sequence_mod.f90
+location/threed_sphere/location_mod.f90
+models/rose/dynamics_testing_DA/ncdf.mod.f
+models/rose/dynamics_testing_DA/restart.mod.f
+models/rose/model_mod.f90
+mpi_utilities/null_mpi_utilities_mod.f90
+obs_def/obs_def_mod.f90
obs_kind/obs_kind_mod.f90
obs_model/obs_model_mod.f90
-obs_def/obs_def_mod.f90
-assim_model/assim_model_mod.f90
-models/rose/model_mod.f90
-common/types_mod.f90
-location/threed_sphere/location_mod.f90
+obs_sequence/create_obs_sequence.f90
+obs_sequence/obs_sequence_mod.f90
+random_nr/random_nr_mod.f90
random_seq/random_seq_mod.f90
-random_nr/random_nr_mod.f90
time_manager/time_manager_mod.f90
utilities/utilities_mod.f90
-mpi_utilities/null_mpi_utilities_mod.f90
Modified: DART/trunk/models/rose/work/path_names_filter
===================================================================
--- DART/trunk/models/rose/work/path_names_filter 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_filter 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,21 +1,23 @@
-filter/filter.f90
-smoother/smoother_mod.f90
-ensemble_manager/ensemble_manager_mod.f90
+adaptive_inflate/adaptive_inflate_mod.f90
+assim_model/assim_model_mod.f90
assim_tools/assim_tools_mod.f90
-adaptive_inflate/adaptive_inflate_mod.f90
-sort/sort_mod.f90
+common/types_mod.f90
cov_cutoff/cov_cutoff_mod.f90
-reg_factor/reg_factor_mod.f90
-obs_sequence/obs_sequence_mod.f90
+ensemble_manager/ensemble_manager_mod.f90
+filter/filter.f90
+location/threed_sphere/location_mod.f90
+models/rose/dynamics_testing_DA/ncdf.mod.f
+models/rose/dynamics_testing_DA/restart.mod.f
+models/rose/model_mod.f90
+mpi_utilities/null_mpi_utilities_mod.f90
+obs_def/obs_def_mod.f90
obs_kind/obs_kind_mod.f90
obs_model/obs_model_mod.f90
-obs_def/obs_def_mod.f90
-assim_model/assim_model_mod.f90
-models/rose/model_mod.f90
-common/types_mod.f90
-location/threed_sphere/location_mod.f90
+obs_sequence/obs_sequence_mod.f90
+random_nr/random_nr_mod.f90
random_seq/random_seq_mod.f90
-random_nr/random_nr_mod.f90
+reg_factor/reg_factor_mod.f90
+smoother/smoother_mod.f90
+sort/sort_mod.f90
time_manager/time_manager_mod.f90
utilities/utilities_mod.f90
-mpi_utilities/null_mpi_utilities_mod.f90
Modified: DART/trunk/models/rose/work/path_names_obs_diag
===================================================================
--- DART/trunk/models/rose/work/path_names_obs_diag 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_obs_diag 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,14 +1,16 @@
+assim_model/assim_model_mod.f90
+common/types_mod.f90
diagnostics/threed_sphere/obs_diag.f90
-sort/sort_mod.f90
+location/threed_sphere/location_mod.f90
+models/rose/dynamics_testing_DA/ncdf.mod.f
+models/rose/dynamics_testing_DA/restart.mod.f
+models/rose/model_mod.f90
+mpi_utilities/null_mpi_utilities_mod.f90
+obs_def/obs_def_mod.f90
+obs_kind/obs_kind_mod.f90
obs_sequence/obs_sequence_mod.f90
-obs_kind/obs_kind_mod.f90
-obs_def/obs_def_mod.f90
-assim_model/assim_model_mod.f90
+random_nr/random_nr_mod.f90
random_seq/random_seq_mod.f90
-random_nr/random_nr_mod.f90
-models/rose/model_mod.f90
-location/threed_sphere/location_mod.f90
-common/types_mod.f90
+sort/sort_mod.f90
time_manager/time_manager_mod.f90
utilities/utilities_mod.f90
-mpi_utilities/null_mpi_utilities_mod.f90
Modified: DART/trunk/models/rose/work/path_names_perfect_model_obs
===================================================================
--- DART/trunk/models/rose/work/path_names_perfect_model_obs 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_perfect_model_obs 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,20 +1,22 @@
-perfect_model_obs/perfect_model_obs.f90
-ensemble_manager/ensemble_manager_mod.f90
+adaptive_inflate/adaptive_inflate_mod.f90
+assim_model/assim_model_mod.f90
assim_tools/assim_tools_mod.f90
-adaptive_inflate/adaptive_inflate_mod.f90
-sort/sort_mod.f90
+common/types_mod.f90
cov_cutoff/cov_cutoff_mod.f90
-reg_factor/reg_factor_mod.f90
-obs_sequence/obs_sequence_mod.f90
+ensemble_manager/ensemble_manager_mod.f90
+location/threed_sphere/location_mod.f90
+models/rose/dynamics_testing_DA/ncdf.mod.f
+models/rose/dynamics_testing_DA/restart.mod.f
+models/rose/model_mod.f90
+mpi_utilities/null_mpi_utilities_mod.f90
+obs_def/obs_def_mod.f90
obs_kind/obs_kind_mod.f90
obs_model/obs_model_mod.f90
-obs_def/obs_def_mod.f90
-assim_model/assim_model_mod.f90
-models/rose/model_mod.f90
-common/types_mod.f90
-location/threed_sphere/location_mod.f90
+obs_sequence/obs_sequence_mod.f90
+perfect_model_obs/perfect_model_obs.f90
+random_nr/random_nr_mod.f90
random_seq/random_seq_mod.f90
-random_nr/random_nr_mod.f90
+reg_factor/reg_factor_mod.f90
+sort/sort_mod.f90
time_manager/time_manager_mod.f90
utilities/utilities_mod.f90
-mpi_utilities/null_mpi_utilities_mod.f90
Modified: DART/trunk/models/rose/work/path_names_preprocess
===================================================================
--- DART/trunk/models/rose/work/path_names_preprocess 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_preprocess 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,5 +1,5 @@
-preprocess/preprocess.f90
common/types_mod.f90
-utilities/utilities_mod.f90
mpi_utilities/null_mpi_utilities_mod.f90
+preprocess/preprocess.f90
time_manager/time_manager_mod.f90
+utilities/utilities_mod.f90
Modified: DART/trunk/models/rose/work/path_names_rose
===================================================================
--- DART/trunk/models/rose/work/path_names_rose 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_rose 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,25 +1,19 @@
-../dynamics_testing_DA/params.mod.f
-../dynamics_testing_DA/phys.mod.f
-../dynamics_testing_DA/dynam.mod.f
+../../../common/types_mod.f90
+../dynamics_testing_DA/calc_daily_avg.f
+../dynamics_testing_DA/chemheat_SOC.f
../dynamics_testing_DA/chem.mod.f
-../dynamics_testing_DA/ncdf.mod.f
-../dynamics_testing_DA/ncdf_4d.mod.f
-../dynamics_testing_DA/output.mod.f
-../dynamics_testing_DA/diagnostic.mod.f
-../dynamics_testing_DA/daily_mean.mod.f
-../dynamics_testing_DA/diag_dailyavg.mod.f
-../dynamics_testing_DA/tide_output.mod.f
-../dynamics_testing_DA/tide_avg.mod.f
../dynamics_testing_DA/climatology.mod.f
-../dynamics_testing_DA/ncep.mod.f
-../dynamics_testing_DA/restart.mod.f
-../dynamics_testing_DA/calc_daily_avg.f
-../dynamics_testing_DA/chemheat_SOC.f
../dynamics_testing_DA/cl_ozone.f
../dynamics_testing_DA/cool_nointeract.f
+../dynamics_testing_DA/daily_mean.mod.f
+../dynamics_testing_DA/DArose.f
+../dynamics_testing_DA/DArose_mod.f90
../dynamics_testing_DA/density.f
+../dynamics_testing_DA/diag_dailyavg.mod.f
+../dynamics_testing_DA/diagnostic.mod.f
../dynamics_testing_DA/dmolec3d_nointeract.f
../dynamics_testing_DA/dynamlbc.f
+../dynamics_testing_DA/dynam.mod.f
../dynamics_testing_DA/fft.f
../dynamics_testing_DA/filter_yz.f
../dynamics_testing_DA/gravity.f
@@ -30,20 +24,26 @@
../dynamics_testing_DA/hydrost.f
../dynamics_testing_DA/linterp.f
../dynamics_testing_DA/msetfix.f
+../dynamics_testing_DA/ncdf_4d.mod.f
+../dynamics_testing_DA/ncdf.mod.f
../dynamics_testing_DA/ncep_lbc.f
+../dynamics_testing_DA/ncep.mod.f
+../dynamics_testing_DA/output.mod.f
+../dynamics_testing_DA/params.mod.f
+../dynamics_testing_DA/phys.mod.f
../dynamics_testing_DA/radiation.f
+../dynamics_testing_DA/restart.mod.f
../dynamics_testing_DA/shapirx.f
../dynamics_testing_DA/shapiry.f
../dynamics_testing_DA/svdiffbc.f
../dynamics_testing_DA/tendency.f
../dynamics_testing_DA/tidalinp.f
+../dynamics_testing_DA/tide_avg.mod.f
+../dynamics_testing_DA/tide_output.mod.f
../dynamics_testing_DA/tinterp.f
../dynamics_testing_DA/vertdiff_t.f
../dynamics_testing_DA/wcont.f
../dynamics_testing_DA/zenith.f
-../dynamics_testing_DA/DArose.f
-../dynamics_testing_DA/DArose_mod.f90
../../../mpi_utilities/null_mpi_utilities_mod.f90
+../../../time_manager/time_manager_mod.f90
../../../utilities/utilities_mod.f90
-../../../time_manager/time_manager_mod.f90
-../../../common/types_mod.f90
Modified: DART/trunk/models/rose/work/path_names_trans_pv_sv
===================================================================
--- DART/trunk/models/rose/work/path_names_trans_pv_sv 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_trans_pv_sv 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,13 +1,15 @@
-models/rose/trans_pv_sv.f90
-models/rose/model_mod.f90
assim_model/assim_model_mod.f90
-utilities/utilities_mod.f90
-mpi_utilities/null_mpi_utilities_mod.f90
common/types_mod.f90
-time_manager/time_manager_mod.f90
location/threed_sphere/location_mod.f90
-random_seq/random_seq_mod.f90
-random_nr/random_nr_mod.f90
+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/restart.mod.f
-models/rose/dynamics_testing_DA/ncdf.mod.f
+models/rose/dynamics_testing_DA/restart.mod.f
+models/rose/model_mod.f90
+models/rose/trans_pv_sv.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
Modified: DART/trunk/models/rose/work/path_names_trans_sv_pv
===================================================================
--- DART/trunk/models/rose/work/path_names_trans_sv_pv 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_trans_sv_pv 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,11 +1,13 @@
-models/rose/trans_sv_pv.f90
-models/rose/model_mod.f90
assim_model/assim_model_mod.f90
-utilities/utilities_mod.f90
-mpi_utilities/null_mpi_utilities_mod.f90
common/types_mod.f90
-time_manager/time_manager_mod.f90
location/threed_sphere/location_mod.f90
+models/rose/dynamics_testing_DA/ncdf.mod.f
+models/rose/dynamics_testing_DA/params.mod.f
+models/rose/dynamics_testing_DA/restart.mod.f
+models/rose/model_mod.f90
+models/rose/trans_sv_pv.f90
+mpi_utilities/null_mpi_utilities_mod.f90
+random_nr/random_nr_mod.f90
random_seq/random_seq_mod.f90
-random_nr/random_nr_mod.f90
-models/rose/DAsrc/params.mod.f
+time_manager/time_manager_mod.f90
+utilities/utilities_mod.f90
Modified: DART/trunk/models/rose/work/path_names_wakeup_filter
===================================================================
--- DART/trunk/models/rose/work/path_names_wakeup_filter 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/path_names_wakeup_filter 2010-02-27 00:12:22 UTC (rev 4298)
@@ -1,5 +1,5 @@
+common/types_mod.f90
filter/wakeup_filter.f90
-common/types_mod.f90
+mpi_utilities/null_mpi_utilities_mod.f90
time_manager/time_manager_mod.f90
utilities/utilities_mod.f90
-mpi_utilities/null_mpi_utilities_mod.f90
Modified: DART/trunk/models/rose/work/quickbuild.csh
===================================================================
--- DART/trunk/models/rose/work/quickbuild.csh 2010-02-26 23:07:41 UTC (rev 4297)
+++ DART/trunk/models/rose/work/quickbuild.csh 2010-02-27 00:12:22 UTC (rev 4298)
@@ -39,6 +39,21 @@
./preprocess || exit 99
#----------------------------------------------------------------------
+# Build rose first ... the modules are used by everyone and have a
+# gazillion input files that I don't want to specify
+# in EVERY path_names_xxxx file.
+#----------------------------------------------------------------------
+
+@ n = $n + 1
+echo
+echo
+echo "---------------------------------------------------------------"
+echo "${MODEL} build number ${n} is rose"
+
+csh mkmf_rose
+make || exit $n
+
+#----------------------------------------------------------------------
# Build all the single-threaded targets
#----------------------------------------------------------------------
@@ -49,6 +64,8 @@
switch ( $TARGET )
case mkmf_preprocess:
breaksw
+ case mkmf_rose:
+ breaksw
default:
@ n = $n + 1
echo
More information about the Dart-dev
mailing list