Skip to content

Commit 5a222d0

Browse files
kieranricardokieranricardo
committed
specify character length in array constructor
1 parent 81d165b commit 5a222d0

1 file changed

Lines changed: 54 additions & 54 deletions

File tree

‎mediator/esmFldsExchange_accessesm_mod.F90‎

Lines changed: 54 additions & 54 deletions
Original file line numberDiff line numberDiff line change
@@ -130,7 +130,7 @@ subroutine esmFldsExchange_accessesm_advt(gcomp, phase, rc)
130130
! to atm: from ocn
131131
! ---------------------------------------------------------------------
132132
allocate(S_flds(3))
133-
S_flds = (/'So_t', 'So_u', 'So_v'/)
133+
S_flds = [character(len=CS) :: 'So_t', 'So_u', 'So_v']
134134
do n = 1,size(S_flds)
135135
fldname = trim(S_flds(n))
136136
call addfld_from(compocn, trim(fldname))
@@ -142,7 +142,7 @@ subroutine esmFldsExchange_accessesm_advt(gcomp, phase, rc)
142142
! to atm: from ice
143143
! ---------------------------------------------------------------------
144144
allocate(S_flds(9))
145-
S_flds = (/'Si_t', &
145+
S_flds = [character(len=CS) :: 'Si_t', &
146146
'Si_ifrac_n', &
147147
'Si_vsno_n', &
148148
'Si_vice_n', &
@@ -151,7 +151,7 @@ subroutine esmFldsExchange_accessesm_advt(gcomp, phase, rc)
151151
'Si_pndf_n', &
152152
'Si_pndt_n', &
153153
'Si_Tf' &
154-
/)
154+
]
155155
do n = 1,size(S_flds)
156156
fldname = trim(S_flds(n))
157157
call addfld_from(compice, trim(fldname))
@@ -167,8 +167,8 @@ subroutine esmFldsExchange_accessesm_advt(gcomp, phase, rc)
167167
! to ocn: state fields from atm
168168
! ---------------------------------------------------------------------
169169
allocate(S_flds(2))
170-
S_flds = (/'Sa_pslv', &
171-
'So_duu10n' /)
170+
S_flds = [character(len=CS) :: 'Sa_pslv', &
171+
'So_duu10n' ]
172172
do n = 1,size(S_flds)
173173
fldname = trim(S_flds(n))
174174
call addfld_from(compatm, trim(fldname))
@@ -181,17 +181,17 @@ subroutine esmFldsExchange_accessesm_advt(gcomp, phase, rc)
181181
! ---------------------------------------------------------------------
182182

183183
allocate(F_flds(11, 2))
184-
F_flds(1,:) = (/'Faxa_taux ', 'Foxx_taux'/)
185-
F_flds(2,:) = (/'Faxa_tauy ', 'Foxx_tauy'/)
186-
F_flds(3,:) = (/'Faoa_sen', 'Foxx_sen'/)
187-
F_flds(4,:) = (/'Faoa_evap', 'Foxx_evap'/)
188-
F_flds(5,:) = (/'Faoa_lwnet', 'Foxx_lwnet'/)
189-
F_flds(6,:) = (/'Faoa_swnet_vdr', 'Foxx_swnet_vdr'/)
190-
F_flds(7,:) = (/'Faoa_swnet_vdf', 'Foxx_swnet_vdf'/)
191-
F_flds(8,:) = (/'Faoa_swnet_idr', 'Foxx_swnet_idr'/)
192-
F_flds(9,:) = (/'Faoa_swnet_idf', 'Foxx_swnet_idf'/)
193-
F_flds(10,:) = (/'Faoa_rofl', 'Foxx_rofl'/) ! mean runoff rate (liquid)
194-
F_flds(11,:) = (/'Faoa_rofi', 'Foxx_rofi'/) ! mean runnof rate (frozen)
184+
F_flds(1,:) = [character(len=CS) :: 'Faxa_taux ', 'Foxx_taux']
185+
F_flds(2,:) = [character(len=CS) :: 'Faxa_tauy ', 'Foxx_tauy']
186+
F_flds(3,:) = [character(len=CS) :: 'Faoa_sen', 'Foxx_sen']
187+
F_flds(4,:) = [character(len=CS) :: 'Faoa_evap', 'Foxx_evap']
188+
F_flds(5,:) = [character(len=CS) :: 'Faoa_lwnet', 'Foxx_lwnet']
189+
F_flds(6,:) = [character(len=CS) :: 'Faoa_swnet_vdr', 'Foxx_swnet_vdr']
190+
F_flds(7,:) = [character(len=CS) :: 'Faoa_swnet_vdf', 'Foxx_swnet_vdf']
191+
F_flds(8,:) = [character(len=CS) :: 'Faoa_swnet_idr', 'Foxx_swnet_idr']
192+
F_flds(9,:) = [character(len=CS) :: 'Faoa_swnet_idf', 'Foxx_swnet_idf']
193+
F_flds(10,:) = [character(len=CS) :: 'Faoa_rofl', 'Foxx_rofl'] ! mean runoff rate (liquid)
194+
F_flds(11,:) = [character(len=CS) :: 'Faoa_rofi', 'Foxx_rofi'] ! mean runnof rate (frozen)
195195

196196
do n = 1,size(F_flds,1)
197197
fldname1 = trim(F_flds(n,1))
@@ -207,12 +207,12 @@ subroutine esmFldsExchange_accessesm_advt(gcomp, phase, rc)
207207
! ---------------------------------------------------------------------
208208

209209
allocate(F_flds(6, 2))
210-
F_flds(1,:) = (/'Fioi_salt', 'Fioi_salt'/) ! salt flux sea-ice to ocean
211-
F_flds(2,:) = (/'Si_ifrac', 'Si_ifrac'/) ! ice_fraction
212-
F_flds(3,:) = (/'Fioi_meltw', 'Fioi_meltw'/) ! freshwater flux sea-ice to ocean
213-
F_flds(4,:) = (/'Fioi_melth', 'Fioi_melth'/) ! heat flux sea-ice to ocean
214-
F_flds(5,:) = (/'Fioi_taux', 'Foxx_taux'/)
215-
F_flds(6,:) = (/'Fioi_tauy', 'Foxx_tauy'/) ! surface stress sea-ice to ocean
210+
F_flds(1,:) = [character(len=CS) :: 'Fioi_salt', 'Fioi_salt'] ! salt flux sea-ice to ocean
211+
F_flds(2,:) = [character(len=CS) :: 'Si_ifrac', 'Si_ifrac'] ! ice_fraction
212+
F_flds(3,:) = [character(len=CS) :: 'Fioi_meltw', 'Fioi_meltw'] ! freshwater flux sea-ice to ocean
213+
F_flds(4,:) = [character(len=CS) :: 'Fioi_melth', 'Fioi_melth'] ! heat flux sea-ice to ocean
214+
F_flds(5,:) = [character(len=CS) :: 'Fioi_taux', 'Foxx_taux']
215+
F_flds(6,:) = [character(len=CS) :: 'Fioi_tauy', 'Foxx_tauy'] ! surface stress sea-ice to ocean
216216
do n = 1,size(F_flds,1)
217217
fldname1 = trim(F_flds(n,1))
218218
fldname2 = trim(F_flds(n,2))
@@ -230,13 +230,13 @@ subroutine esmFldsExchange_accessesm_advt(gcomp, phase, rc)
230230
! ---------------------------------------------------------------------
231231

232232
allocate(S_flds(7))
233-
S_flds = (/'So_dhdx', &
233+
S_flds = [character(len=CS) :: 'So_dhdx', &
234234
'So_dhdy', &
235235
'So_t', &
236236
'So_s', &
237237
'So_u', &
238238
'So_v', &
239-
'Fioo_q' /)
239+
'Fioo_q' ]
240240
do n = 1,size(S_flds)
241241
fldname = trim(S_flds(n))
242242
call addfld_from(compocn, trim(fldname))
@@ -249,11 +249,11 @@ subroutine esmFldsExchange_accessesm_advt(gcomp, phase, rc)
249249
! ---------------------------------------------------------------------
250250

251251
allocate(F_flds(5, 2))
252-
F_flds(1,:) = (/'Faxa_swpen_n', 'Faxa_swpen_n'/)
253-
F_flds(2,:) = (/'Faxa_melthtop_n', 'Faxa_melthtop_n'/)
254-
F_flds(3,:) = (/'Faxa_condtop_n', 'Faxa_condtop_n'/)
255-
F_flds(4,:) = (/'Sa_tskn_n', 'Sa_tskn_n'/)
256-
F_flds(5,:) = (/'Faxa_sublim_n', 'Faxa_sublim_n'/)
252+
F_flds(1,:) = [character(len=CS) :: 'Faxa_swpen_n', 'Faxa_swpen_n']
253+
F_flds(2,:) = [character(len=CS) :: 'Faxa_melthtop_n', 'Faxa_melthtop_n']
254+
F_flds(3,:) = [character(len=CS) :: 'Faxa_condtop_n', 'Faxa_condtop_n']
255+
F_flds(4,:) = [character(len=CS) :: 'Sa_tskn_n', 'Sa_tskn_n']
256+
F_flds(5,:) = [character(len=CS) :: 'Faxa_sublim_n', 'Faxa_sublim_n']
257257
do n = 1,size(F_flds,1)
258258
fldname1 = trim(F_flds(n,1))
259259
fldname2 = trim(F_flds(n,2))
@@ -341,7 +341,7 @@ subroutine esmFldsExchange_accessesm_init(gcomp, phase, rc)
341341
end if
342342

343343
allocate(S_flds(2))
344-
S_flds = (/'So_u', 'So_v'/)
344+
S_flds = [character(len=CS) :: 'So_u', 'So_v']
345345
do n = 1,size(S_flds)
346346
fldname = trim(S_flds(n))
347347
if (fldchk(is_local%wrap%FBExp(compatm), trim(fldname), rc=rc) .and. &
@@ -354,7 +354,7 @@ subroutine esmFldsExchange_accessesm_init(gcomp, phase, rc)
354354
deallocate(S_flds)
355355

356356
allocate(S_flds(9))
357-
S_flds = (/'Si_t', &
357+
S_flds = [character(len=CS) :: 'Si_t', &
358358
'Si_ifrac_n', &
359359
'Si_vsno_n', &
360360
'Si_vice_n', &
@@ -363,7 +363,7 @@ subroutine esmFldsExchange_accessesm_init(gcomp, phase, rc)
363363
'Si_pndf_n', &
364364
'Si_pndt_n', &
365365
'Si_Tf' &
366-
/)
366+
]
367367
do n = 1,size(S_flds)
368368
fldname = trim(S_flds(n))
369369
if (fldchk(is_local%wrap%FBExp(compatm), trim(fldname), rc=rc) .and. &
@@ -383,8 +383,8 @@ subroutine esmFldsExchange_accessesm_init(gcomp, phase, rc)
383383
! to ocn: state fields
384384
! ---------------------------------------------------------------------
385385
allocate(S_flds(2))
386-
S_flds = (/'Sa_pslv', &
387-
'So_duu10n' /)
386+
S_flds = [character(len=CS) :: 'Sa_pslv', &
387+
'So_duu10n' ]
388388
do n = 1,size(S_flds)
389389
fldname = trim(S_flds(n))
390390
if (fldchk(is_local%wrap%FBExp(compocn), trim(fldname), rc=rc) .and. &
@@ -403,15 +403,15 @@ subroutine esmFldsExchange_accessesm_init(gcomp, phase, rc)
403403
! ---------------------------------------------------------------------
404404

405405
allocate(F_flds(9, 2))
406-
F_flds(1,:) = (/'Faoa_sen', 'Foxx_sen'/)
407-
F_flds(2,:) = (/'Faoa_evap', 'Foxx_evap'/)
408-
F_flds(3,:) = (/'Faoa_lwnet', 'Foxx_lwnet'/)
409-
F_flds(4,:) = (/'Faoa_swnet_vdr', 'Foxx_swnet_vdr'/)
410-
F_flds(5,:) = (/'Faoa_swnet_vdf', 'Foxx_swnet_vdf'/)
411-
F_flds(6,:) = (/'Faoa_swnet_idr', 'Foxx_swnet_idr'/)
412-
F_flds(7,:) = (/'Faoa_swnet_idf', 'Foxx_swnet_idf'/)
413-
F_flds(8,:) = (/'Faoa_rofl', 'Foxx_rofl'/) ! mean runoff rate (liquid)
414-
F_flds(9,:) = (/'Faoa_rofi', 'Foxx_rofi'/) ! mean runnof rate (frozen)
406+
F_flds(1,:) = [character(len=CS) :: 'Faoa_sen', 'Foxx_sen']
407+
F_flds(2,:) = [character(len=CS) :: 'Faoa_evap', 'Foxx_evap']
408+
F_flds(3,:) = [character(len=CS) :: 'Faoa_lwnet', 'Foxx_lwnet']
409+
F_flds(4,:) = [character(len=CS) :: 'Faoa_swnet_vdr', 'Foxx_swnet_vdr']
410+
F_flds(5,:) = [character(len=CS) :: 'Faoa_swnet_vdf', 'Foxx_swnet_vdf']
411+
F_flds(6,:) = [character(len=CS) :: 'Faoa_swnet_idr', 'Foxx_swnet_idr']
412+
F_flds(7,:) = [character(len=CS) :: 'Faoa_swnet_idf', 'Foxx_swnet_idf']
413+
F_flds(8,:) = [character(len=CS) :: 'Faoa_rofl', 'Foxx_rofl'] ! mean runoff rate (liquid)
414+
F_flds(9,:) = [character(len=CS) :: 'Faoa_rofi', 'Foxx_rofi'] ! mean runnof rate (frozen)
415415

416416
do n = 1,size(F_flds,1)
417417
fldname1 = trim(F_flds(n,1))
@@ -451,10 +451,10 @@ subroutine esmFldsExchange_accessesm_init(gcomp, phase, rc)
451451
! ---------------------------------------------------------------------
452452

453453
allocate(F_flds(4, 2))
454-
F_flds(1,:) = (/'Fioi_salt', 'Fioi_salt'/)
455-
F_flds(2,:) = (/'Fioi_meltw', 'Fioi_meltw'/)
456-
F_flds(3,:) = (/'Fioi_melth', 'Fioi_melth'/)
457-
F_flds(4,:) = (/'Si_ifrac', 'Si_ifrac'/)
454+
F_flds(1,:) = [character(len=CS) :: 'Fioi_salt', 'Fioi_salt']
455+
F_flds(2,:) = [character(len=CS) :: 'Fioi_meltw', 'Fioi_meltw']
456+
F_flds(3,:) = [character(len=CS) :: 'Fioi_melth', 'Fioi_melth']
457+
F_flds(4,:) = [character(len=CS) :: 'Si_ifrac', 'Si_ifrac']
458458
do n = 1,size(F_flds,1)
459459
fldname1 = trim(F_flds(n,1))
460460
fldname2 = trim(F_flds(n,2))
@@ -505,13 +505,13 @@ subroutine esmFldsExchange_accessesm_init(gcomp, phase, rc)
505505
! ---------------------------------------------------------------------
506506

507507
allocate(S_flds(7))
508-
S_flds = (/'So_dhdx', & ! sea_surface_slope_zonal
508+
S_flds = [character(len=CS) :: 'So_dhdx', & ! sea_surface_slope_zonal
509509
'So_dhdy', & ! sea_surface_slope_merid
510510
'So_t ', & ! sea_surface_temperature
511511
'So_s ', & ! sea surface salinity
512512
'So_u', & ! ocean surface zonal current
513513
'So_v', & ! ocean surface meridional current
514-
'Fioo_q' /) ! Freezing/melting potential
514+
'Fioo_q' ] ! Freezing/melting potential
515515
do n = 1,size(S_flds)
516516
fldname = trim(S_flds(n))
517517
if (fldchk(is_local%wrap%FBExp(compice),trim(fldname),rc=rc) .and. &
@@ -530,11 +530,11 @@ subroutine esmFldsExchange_accessesm_init(gcomp, phase, rc)
530530
! ---------------------------------------------------------------------
531531

532532
allocate(F_flds(5, 2))
533-
F_flds(1,:) = (/'Faxa_swpen_n', 'Faxa_swpen_n'/)
534-
F_flds(2,:) = (/'Faxa_melthtop_n', 'Faxa_melthtop_n'/)
535-
F_flds(3,:) = (/'Faxa_condtop_n', 'Faxa_condtop_n'/)
536-
F_flds(4,:) = (/'Sa_tskn_n', 'Sa_tskn_n'/)
537-
F_flds(5,:) = (/'Faxa_sublim_n', 'Faxa_sublim_n'/)
533+
F_flds(1,:) = [character(len=CS) :: 'Faxa_swpen_n', 'Faxa_swpen_n']
534+
F_flds(2,:) = [character(len=CS) :: 'Faxa_melthtop_n', 'Faxa_melthtop_n']
535+
F_flds(3,:) = [character(len=CS) :: 'Faxa_condtop_n', 'Faxa_condtop_n']
536+
F_flds(4,:) = [character(len=CS) :: 'Sa_tskn_n', 'Sa_tskn_n']
537+
F_flds(5,:) = [character(len=CS) :: 'Faxa_sublim_n', 'Faxa_sublim_n']
538538

539539
do n = 1,size(F_flds,1)
540540
fldname1 = trim(F_flds(n,1))

0 commit comments

Comments
 (0)