Update dummy

cicecore/cicedynB/general/ice_forcing.F90

@@ -162,6 +162,21 @@ subroutine init_forcing_atmo
 ! Determine the current and final year of the forcing cycle based on
 ! namelist input; initialize the atmospheric forcing data filenames.
 
+      fsw_data(:,:,:,:) = c0
+      cldf_data(:,:,:,:) = c0
+      fsnow_data(:,:,:,:) = c0
+      Tair_data(:,:,:,:) = c0
+      uatm_data(:,:,:,:) = c0
+      vatm_data(:,:,:,:) = c0
+      wind_data(:,:,:,:) = c0
+      strax_data(:,:,:,:) = c0
+      stray_data(:,:,:,:) = c0
+      Qa_data(:,:,:,:) = c0
+      rhoa_data(:,:,:,:) = c0
+      flw_data(:,:,:,:) = c0
+      sublim_data(:,:,:,:) = c0
+      frain_data(:,:,:,:) = c0
+
       fyear       = fyear_init + mod(nyr-1,ycycle) ! current year
       fyear_final = fyear_init + ycycle - 1 ! last year in forcing cycle
 
@@ -239,6 +254,11 @@ subroutine init_forcing_ocn(dt)
       if (icepack_warnings_aborted()) call abort_ice(error_message="subname", &
          file=__FILE__, line=__LINE__)
 
+      sst_data(:,:,:,:) = c0
+      sss_data(:,:,:,:) = c0
+      uocn_data(:,:,:,:) = c0
+      vocn_data(:,:,:,:) = c0
+
       nbits = 64              ! double precision data
 
       if (restore_sst .or. restore_bgc) then
@@ -590,7 +610,7 @@ subroutine read_data (flag, recd, yr, ixm, ixx, ixp, &
          maxrec                  ! maximum record value
 
       real (kind=dbl_kind), dimension(nx_block,ny_block,2,max_blocks), &
-         intent(out) :: &
+         intent(inout) :: &
          field_data              ! 2 values needed for interpolation
 
       integer (kind=int_kind), intent(in) :: &
@@ -611,8 +631,6 @@ subroutine read_data (flag, recd, yr, ixm, ixx, ixp, &
 
       call ice_timer_start(timer_readwrite)  ! reading/writing
 
-      field_data(:,:,:,:) = c0
-
       nbits = 64              ! double precision data
 
       if (istep1 > check_step) dbug = .true.  !! debugging

configuration/scripts/ice_in

@@ -50,18 +50,6 @@
     kcatbound    = 0
 /
 
-&domain_nml
-    nprocs = 4
-    processor_shape   = 'slenderX2'
-    distribution_type = 'cartesian'
-    distribution_wght = 'latitude'
-    ew_boundary_type  = 'cyclic'
-    ns_boundary_type  = 'open'
-    maskhalo_dyn      = .false.
-    maskhalo_remap    = .false.
-    maskhalo_bound    = .false.
-/
-
 &tracer_nml
     tr_iage      = .true.
     restart_age  = .false.
@@ -133,6 +121,47 @@
     pndaspect       = 0.8
 /
 
+&forcing_nml
+    formdrag        = .false.
+    atmbndy         = 'default'
+    fyear_init      = 1997
+    ycycle          = 1
+    atm_data_format = 'bin'
+    atm_data_type   = 'ncar'
+    atm_data_dir    = '/glade/u/home/tcraig/cice_data/'
+    calc_strair     = .true.
+    highfreq        = .false.
+    natmiter        = 5
+    calc_Tsfc       = .true.
+    precip_units    = 'mm_per_month'
+    ustar_min       = 0.0005
+    fbot_xfer_type  = 'constant'
+    update_ocn_f    = .false.
+    l_mpond_fresh   = .false.
+    tfrz_option     = 'mushy'
+    oceanmixed_ice  = .true.
+    ocn_data_format = 'bin'
+    sss_data_type   = 'default'
+    sst_data_type   = 'default'
+    ocn_data_dir    = 'unknown_ocn_data_dir'
+    oceanmixed_file = 'unknown_oceanmixed_file'
+    restore_sst     = .false.
+    trestore        =  90
+    restore_ice     = .false.
+/
+
+&domain_nml
+    nprocs = 4
+    processor_shape   = 'slenderX2'
+    distribution_type = 'cartesian'
+    distribution_wght = 'latitude'
+    ew_boundary_type  = 'cyclic'
+    ns_boundary_type  = 'open'
+    maskhalo_dyn      = .false.
+    maskhalo_remap    = .false.
+    maskhalo_bound    = .false.
+/
+
 &zbgc_nml
     tr_brine        = .false.
     restart_hbrine  = .false.
@@ -286,35 +315,6 @@
     ratio_C2N_proteins = 7.0
 /
 
-&forcing_nml
-    formdrag        = .false.
-    atmbndy         = 'default'
-    fyear_init      = 1997
-    ycycle          = 1
-    atm_data_format = 'bin'
-    atm_data_type   = 'ncar'
-    atm_data_dir    = '/glade/u/home/tcraig/cice_data/'
-    calc_strair     = .true.
-    highfreq        = .false.
-    natmiter        = 5
-    calc_Tsfc       = .true.
-    precip_units    = 'mm_per_month'
-    ustar_min       = 0.0005
-    fbot_xfer_type  = 'constant'
-    update_ocn_f    = .false.
-    l_mpond_fresh   = .false.
-    tfrz_option     = 'mushy'
-    oceanmixed_ice  = .true.
-    ocn_data_format = 'bin'
-    sss_data_type   = 'default'
-    sst_data_type   = 'default'
-    ocn_data_dir    = 'unknown_ocn_data_dir'
-    oceanmixed_file = 'unknown_oceanmixed_file'
-    restore_sst     = .false.
-    trestore        =  90
-    restore_ice     = .false.
-/
-
 &icefields_nml
     f_tmask        = .true.
     f_blkmask      = .true.