Skip to content

Commit 12a692b

Browse files
davidclemenssewalldavidclemenssewall
committed
fixed trailing whitespace
1 parent ab1fd79 commit 12a692b

File tree

4 files changed

+44
-44
lines changed

4 files changed

+44
-44
lines changed

‎configuration/driver/icedrv_flux.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -186,7 +186,7 @@ module icedrv_flux
186186
fswthru_vdf , & ! vis dif shortwave penetrating to ocean (W/m^2)
187187
fswthru_idr , & ! nir dir shortwave penetrating to ocean (W/m^2)
188188
fswthru_idf ! nir dif shortwave penetrating to ocean (W/m^2)
189-
189+
190190
! fixed ocean mixed layer properties (are overwritten by forcing data)
191191
real (kind=dbl_kind), public :: &
192192
sss_fixed , & ! Sea surface salinity (PSU)

‎configuration/driver/icedrv_forcing.F90

Lines changed: 34 additions & 34 deletions
Original file line numberDiff line numberDiff line change
@@ -123,7 +123,7 @@ subroutine init_forcing
123123
i ! index
124124

125125
character(len=*), parameter :: subname='(init_forcing)'
126-
126+
127127
! Initialize ntime and allocate data arrays
128128
if (precalc_forc) then
129129
ntime = npt
@@ -1030,7 +1030,7 @@ end subroutine atm_NICE
10301030
!=======================================================================
10311031

10321032
subroutine atm_MOSAiC
1033-
1033+
10341034
integer (kind=int_kind) :: &
10351035
nt, & ! timestep index for Icepack arrays
10361036
i, & ! index for forcing data arrays
@@ -1040,41 +1040,41 @@ subroutine atm_MOSAiC
10401040
dimid, & ! NetCDF dimension id
10411041
status, & ! NetCDF status flag
10421042
varid ! NetCDF variable id
1043-
1043+
10441044
integer (kind=8), allocatable :: &
10451045
data_time(:) ! array for time array in forcing data
1046-
1046+
10471047
integer (kind=8), dimension(ntime) :: &
10481048
model_time ! array for Icepack minutely time
10491049

10501050
real (kind=dbl_kind) :: &
10511051
work, & ! variable for moving averaging
10521052
model_time0
1053-
1053+
10541054
real (kind=dbl_kind), allocatable :: &
10551055
data(:) ! data array from file
10561056

10571057
character (char_len) :: &
10581058
calendar_type, & ! data calendar type
10591059
varname
1060-
1060+
10611061
character (char_len_long) :: &
10621062
filename, &
10631063
time_basis ! time basis for data
1064-
1064+
10651065
integer (kind=int_kind), dimension(ntime, 2) :: &
10661066
data_sections ! 2D array for indices corresponding
10671067
! to which data values should be averaged to
10681068
! create the model forcing values
1069-
1069+
10701070
real (kind=dbl_kind), parameter :: &
10711071
Gregorian_year = 365.2425, & ! days in Gregorian year per cf standard
10721072
model_miss_val = -9999.00 ! missing value for internal use
10731073

10741074
character(len=*), parameter :: subname='(atm_MOSAiC)'
10751075

10761076
filename = trim(data_dir)//'/MOSAiC/'//trim(atm_data_file)
1077-
1077+
10781078
if (atm_data_format == 'nc') then
10791079
#ifdef USE_NETCDF
10801080
! Open forcing file
@@ -1197,7 +1197,7 @@ subroutine atm_MOSAiC
11971197

11981198
! Currently no rainfall data, to do
11991199
frain_data(:) = c0
1200-
1200+
12011201
#else
12021202
call icedrv_system_abort(string=subname//&
12031203
' ERROR: atm_data_format = "nc" requires USE_NETCDF', &
@@ -1219,37 +1219,37 @@ subroutine MOSAiC_average(data_var_name, model_var_arr, &
12191219

12201220
character(len=*), intent(in) :: &
12211221
data_var_name ! Name of the variable in the MDF forcing file
1222-
1222+
12231223
real (kind=dbl_kind), dimension(ntime), intent(out) :: &
12241224
model_var_arr ! array to place averaged forcing data in
1225-
1225+
12261226
integer (kind=int_kind), intent(in) :: &
12271227
data_var_len, & ! Size of data array in MDF forcing file
12281228
ncid ! NetCDF file id
1229-
1229+
12301230
integer (kind=int_kind), dimension(ntime, 2) :: &
12311231
data_sections ! indices for which data values to average
1232-
1232+
12331233
real (kind=dbl_kind), intent(in) :: &
12341234
model_miss_val ! for when there is no data in a time step
1235-
1235+
12361236
! Local variables
12371237
real (kind=dbl_kind), dimension(data_var_len) :: &
12381238
data_var_arr ! array for data from forcing file
1239-
1239+
12401240
real (kind=dbl_kind) :: &
12411241
work, & ! variable for averaging
12421242
data_miss_val, & ! value of missing data
12431243
count ! counter for data to average
1244-
1244+
12451245
integer (kind=int_kind) :: &
12461246
status, & ! NetCDF status flag
12471247
nt, & ! timestep index for Icepack arrays
12481248
i, & ! index for forcing data arrays
12491249
varid ! NetCDF variable id
1250-
1250+
12511251
character(len=*), parameter :: subname='(MOSAiC_average)'
1252-
1252+
12531253
! Allocate get data and missing value from file
12541254
status = nf90_inq_varid(ncid, trim(data_var_name), varid)
12551255
if (status /= nf90_noerr) call icedrv_system_abort(&
@@ -1263,7 +1263,7 @@ subroutine MOSAiC_average(data_var_name, model_var_arr, &
12631263
if (status /= nf90_noerr) call icedrv_system_abort(&
12641264
string=subname//'Couldnt get '//data_var_name//' values', &
12651265
file=__FILE__,line=__LINE__)
1266-
1266+
12671267
! For each model time point average non-missing data values
12681268
do nt = 1, ntime
12691269
count = 0
@@ -1287,18 +1287,18 @@ end subroutine MOSAiC_average
12871287
!=======================================================================
12881288

12891289
subroutine MOSAiC_interpolate(model_var_arr, model_miss_val)
1290-
1290+
12911291
real (kind=dbl_kind), dimension(ntime), intent(inout) :: &
12921292
model_var_arr ! array to place averaged forcing data in
1293-
1293+
12941294
real (kind=dbl_kind), intent(in) :: &
12951295
model_miss_val ! for when there is no data in a time step
12961296

12971297
integer (kind=int_kind) :: &
12981298
mlast, & ! index of last present data
12991299
nt, m, & ! model timestep indices
13001300
count ! counter for missing values
1301-
1301+
13021302
character(len=*), parameter :: subname='(MOSAiC_interpolate)'
13031303

13041304
! Interpolate, extrapolate for first and last values
@@ -1441,7 +1441,7 @@ end subroutine ocn_ISPOL
14411441
!=======================================================================
14421442

14431443
subroutine ocn_MOSAiC
1444-
1444+
14451445
integer (kind=int_kind) :: &
14461446
nt, & ! timestep index for Icepack arrays
14471447
i, & ! index for forcing data arrays
@@ -1451,17 +1451,17 @@ subroutine ocn_MOSAiC
14511451
dimid, & ! NetCDF dimension id
14521452
status, & ! NetCDF status flag
14531453
varid ! NetCDF variable id
1454-
1454+
14551455
integer (kind=8), allocatable :: &
14561456
data_time(:) ! array for time array in forcing data
1457-
1457+
14581458
integer (kind=8), dimension(ntime) :: &
14591459
model_time ! array for Icepack minutely time
14601460

14611461
real (kind=dbl_kind) :: &
14621462
work, & ! variable for moving averaging
14631463
model_time0
1464-
1464+
14651465
real (kind=dbl_kind), allocatable :: &
14661466
data(:) ! data array from file
14671467

@@ -1470,24 +1470,24 @@ subroutine ocn_MOSAiC
14701470
test_1, &
14711471
test_2, &
14721472
varname
1473-
1473+
14741474
character (char_len_long) :: &
14751475
filename, &
14761476
time_basis ! time basis for data
1477-
1477+
14781478
integer (kind=int_kind), dimension(ntime, 2) :: &
14791479
data_sections ! 2D array for indices corresponding
14801480
! to which data values should be averaged to
14811481
! create the model forcing values
1482-
1482+
14831483
real (kind=dbl_kind), parameter :: &
14841484
Gregorian_year = 365.2425, & ! days in Gregorian year per cf standard
14851485
model_miss_val = -9999.00 ! missing value for internal use
14861486

14871487
character(len=*), parameter :: subname='(ocn_MOSAiC)'
14881488

14891489
filename = trim(data_dir)//'/MOSAiC/'//trim(ocn_data_file)
1490-
1490+
14911491
if (ocn_data_format == 'nc') then
14921492
#ifdef USE_NETCDF
14931493
! Open forcing file
@@ -1582,7 +1582,7 @@ subroutine ocn_MOSAiC
15821582
data_sections, model_miss_val)
15831583
call MOSAiC_average("hfsot", qdp_data, dimlen, ncid, &
15841584
data_sections, model_miss_val)
1585-
1585+
15861586
! Linearly interpolate missing values
15871587
call MOSAiC_interpolate(sss_data, model_miss_val)
15881588
call MOSAiC_interpolate(hmix_data, model_miss_val)
@@ -1597,10 +1597,10 @@ subroutine ocn_MOSAiC
15971597
call icedrv_system_abort(string=subname//&
15981598
' ERROR: only NetCDF input implemented for ocn_MOSAiC', &
15991599
file=__FILE__,line=__LINE__)
1600-
endif
1600+
endif
16011601

16021602
end subroutine ocn_MOSAiC
1603-
1603+
16041604
!=======================================================================
16051605

16061606
subroutine finish_ocn_forcing(sst_temp)

‎configuration/driver/icedrv_init.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -43,12 +43,12 @@ module icedrv_init
4343
tmask , & ! land/boundary mask, thickness (T-cell)
4444
lmask_n, & ! northern hemisphere mask
4545
lmask_s ! southern hemisphere mask
46-
46+
4747
real (kind=dbl_kind), public :: &
4848
hi_init_slab, & ! initial ice thickness for slab cell (nx=2)
4949
hsno_init_slab, & ! initial snow thickness for slab cell (nx=2)
5050
hbar_init_itd, & ! hbar for ice thickness for itd cell (nx=3)
51-
hsno_init_itd ! initial snow thickness for itd cell (nx=3)
51+
hsno_init_itd ! initial snow thickness for itd cell (nx=3)
5252

5353
!=======================================================================
5454

‎configuration/scripts/icepack_in

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,7 @@
6363
albicev = 0.78
6464
albicei = 0.36
6565
albsnowv = 0.98
66-
albsnowi = 0.70
66+
albsnowi = 0.70
6767
ahmax = 0.3
6868
R_ice = 0.
6969
R_pnd = 0.
@@ -176,25 +176,25 @@
176176
tr_bgc_PON = .false.
177177
tr_bgc_hum = .false.
178178
tr_bgc_DON = .false.
179-
tr_bgc_Fe = .false.
179+
tr_bgc_Fe = .false.
180180
grid_o = 0.006
181181
grid_o_t = 0.006
182182
l_sk = 2.0
183183
grid_oS = 0.0
184184
l_skS = 0.028
185185
phi_snow = -1.0
186186
initbio_frac = 1.0
187-
frazil_scav = 0.8
188-
ratio_Si2N_diatoms = 1.8
187+
frazil_scav = 0.8
188+
ratio_Si2N_diatoms = 1.8
189189
ratio_Si2N_sp = 0.0
190190
ratio_Si2N_phaeo = 0.0
191-
ratio_S2N_diatoms = 0.03
192-
ratio_S2N_sp = 0.03
191+
ratio_S2N_diatoms = 0.03
192+
ratio_S2N_sp = 0.03
193193
ratio_S2N_phaeo = 0.03
194194
ratio_Fe2C_diatoms = 0.0033
195195
ratio_Fe2C_sp = 0.0033
196196
ratio_Fe2C_phaeo = 0.1
197-
ratio_Fe2N_diatoms = 0.023
197+
ratio_Fe2N_diatoms = 0.023
198198
ratio_Fe2N_sp = 0.023
199199
ratio_Fe2N_phaeo = 0.7
200200
ratio_Fe2DON = 0.023

0 commit comments

Comments
 (0)