[Dart-dev] DART/branches Revision: 12548

[dart at ucar.edu]

thoar at ucar.edu
2018-04-20 13:34:48 -0600 (Fri, 20 Apr 2018)
77
Using the alternate semaphore filename seems to work, but why is a mystery.




Modified: DART/branches/openggcm/models/openggcm/model_mod.f90
===================================================================
--- DART/branches/openggcm/models/openggcm/model_mod.f90	2018-04-19 22:36:15 UTC (rev 12547)
+++ DART/branches/openggcm/models/openggcm/model_mod.f90	2018-04-20 19:34:48 UTC (rev 12548)
@@ -289,7 +289,7 @@
                        kind_list   = state_kinds_list(1:nfields), &
                        update_list = update_var_list (1:nfields))
 
-if (debug > 0) call state_structure_info(domain_id)
+if (debug > 10) call state_structure_info(domain_id)
 
 ! order the dimensions according to lat, lon and height
 
@@ -950,8 +950,10 @@
 
 read_model_time = model_time_base + model_time_offset
 
-call print_date(read_model_time,'read_model_time:netcdf model date')
-call print_time(read_model_time,'read_model_time:DART   model time')
+if (do_output()) then
+   call print_date(read_model_time,'read_model_time:netcdf model date')
+   call print_time(read_model_time,'read_model_time:DART   model time')
+endif
 
 end function read_model_time
 
@@ -1426,7 +1428,7 @@
 character(len=NF90_MAX_NAME) :: dimname
 
 ! initialize list
-dim_order_list(:,:) = 1
+dim_order_list(:,:) = -1
 
 do ivar = 1,ngood
    do jdim = 1,get_num_dims(domain_id, ivar)
@@ -1444,9 +1446,20 @@
             call error_handler(E_ERR,'make_dim_order_table',string1,source,revision,revdate)
       END SELECT
    enddo
+
+   if ( debug > 99 .and. do_output() ) then
+      write(string1,*)'dim_order_list ',dim_order_list(ivar,:)
+
+      write(string2,*)'dim_order_list height,lat,lon ', &
+                       dim_order_list(ivar,VAR_HGT_INDEX), &
+                       dim_order_list(ivar,VAR_LAT_INDEX), &
+                       dim_order_list(ivar,VAR_LON_INDEX)
+      call error_handler(E_MSG,'make_dim_order_table',string1,text2=string2) 
+   endif
+
 enddo
 
-!>@todo what about falling off the list? 
+!>@todo what about falling off the list?  i.e. dim_order_list == 1
 
 end subroutine make_dim_order_table
 

Added: DART/branches/openggcm/models/openggcm/shell_scripts/configuration.txt
===================================================================
--- DART/branches/openggcm/models/openggcm/shell_scripts/configuration.txt	                        (rev 0)
+++ DART/branches/openggcm/models/openggcm/shell_scripts/configuration.txt	2018-04-20 19:34:48 UTC (rev 12548)
@@ -0,0 +1,13 @@
+# Configuration file to set environment variables common for all the scripts.
+
+setenv BASERUNDIR /mnt/lustre/lus0/home/dart/dart/rma_openggcm/models/openggcm/test/baserun
+setenv OPENGGCMDIR $HOME/openggcm-2016-04-18
+
+setenv RUNPREFIX hoptest
+setenv RUNPATH /mnt/lustre/lus0/home/dart/dart/rma_openggcm/models/openggcm/$RUNPREFIX
+setenv ENSEMBLE_SIZE 3
+
+setenv DARTROOT /mnt/lustre/lus0/home/dart/dart/rma_openggcm
+setenv OBSERVATIONDIR ${DARTROOT}/models/openggcm/observations
+
+setenv BASETIME "1966-01-01_00:00:00"


Property changes on: DART/branches/openggcm/models/openggcm/shell_scripts/configuration.txt
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:keywords
## -0,0 +1 ##
+Date Rev Author HeadURL Id
\ No newline at end of property
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
Modified: DART/branches/openggcm/models/openggcm/shell_scripts/create_base.csh
===================================================================
--- DART/branches/openggcm/models/openggcm/shell_scripts/create_base.csh	2018-04-19 22:36:15 UTC (rev 12547)
+++ DART/branches/openggcm/models/openggcm/shell_scripts/create_base.csh	2018-04-20 19:34:48 UTC (rev 12548)
@@ -1,8 +1,5 @@
 #!/bin/csh
 
-setenv OPENGGCMDIR $HOME/openggcm-2016-04-18
-set baserundir=$PWD/baserun