@@ -198,6 +198,7 @@ MODULE seq_infodata_mod
198
198
logical :: ocn_prognostic ! does component model need input data from driver
199
199
logical :: ocnrof_prognostic ! does component need rof data
200
200
logical :: ocn_c2_glcshelf ! will ocn component send data for ice shelf fluxes in driver
201
+ logical :: ocn_c2_glctf ! will ocn component send data for thermal forcing in driver
201
202
logical :: ice_present ! does component model exist
202
203
logical :: ice_prognostic ! does component model need input data from driver
203
204
logical :: iceberg_prognostic ! does the ice model support icebergs
@@ -764,6 +765,7 @@ SUBROUTINE seq_infodata_Init( infodata, nmlfile, ID, pioid, cpl_tag)
764
765
infodata% ocn_prognostic = .false.
765
766
infodata% ocnrof_prognostic = .false.
766
767
infodata% ocn_c2_glcshelf = .false.
768
+ infodata% ocn_c2_glctf = .false.
767
769
infodata% ice_prognostic = .false.
768
770
infodata% glc_prognostic = .false.
769
771
! It's safest to assume glc_coupled_fluxes = .true. if it's not set elsewhere,
@@ -1013,7 +1015,8 @@ SUBROUTINE seq_infodata_GetData_explicit( infodata, cime_model, case_name, case_
1013
1015
atm_present , atm_prognostic , &
1014
1016
lnd_present , lnd_prognostic , &
1015
1017
rof_present , rof_prognostic , rofocn_prognostic , &
1016
- ocn_present , ocn_prognostic , ocnrof_prognostic , ocn_c2_glcshelf , &
1018
+ ocn_present , ocn_prognostic , ocnrof_prognostic , &
1019
+ ocn_c2_glcshelf , ocn_c2_glctf , &
1017
1020
ice_present , ice_prognostic , &
1018
1021
glc_present , glc_prognostic , &
1019
1022
iac_present , iac_prognostic , &
@@ -1187,6 +1190,7 @@ SUBROUTINE seq_infodata_GetData_explicit( infodata, cime_model, case_name, case_
1187
1190
logical , optional , intent (OUT ) :: ocn_prognostic
1188
1191
logical , optional , intent (OUT ) :: ocnrof_prognostic
1189
1192
logical , optional , intent (OUT ) :: ocn_c2_glcshelf
1193
+ logical , optional , intent (OUT ) :: ocn_c2_glctf
1190
1194
logical , optional , intent (OUT ) :: ice_present
1191
1195
logical , optional , intent (OUT ) :: ice_prognostic
1192
1196
logical , optional , intent (OUT ) :: iceberg_prognostic
@@ -1379,6 +1383,7 @@ SUBROUTINE seq_infodata_GetData_explicit( infodata, cime_model, case_name, case_
1379
1383
if ( present (ocn_prognostic) ) ocn_prognostic = infodata% ocn_prognostic
1380
1384
if ( present (ocnrof_prognostic) ) ocnrof_prognostic = infodata% ocnrof_prognostic
1381
1385
if ( present (ocn_c2_glcshelf) ) ocn_c2_glcshelf = infodata% ocn_c2_glcshelf
1386
+ if ( present (ocn_c2_glctf) ) ocn_c2_glctf = infodata% ocn_c2_glctf
1382
1387
if ( present (ice_present) ) ice_present = infodata% ice_present
1383
1388
if ( present (ice_prognostic) ) ice_prognostic = infodata% ice_prognostic
1384
1389
if ( present (iceberg_prognostic)) iceberg_prognostic = infodata% iceberg_prognostic
@@ -1578,7 +1583,8 @@ SUBROUTINE seq_infodata_PutData_explicit( infodata, cime_model, case_name, case_
1578
1583
atm_present , atm_prognostic , &
1579
1584
lnd_present , lnd_prognostic , &
1580
1585
rof_present , rof_prognostic , rofocn_prognostic , &
1581
- ocn_present , ocn_prognostic , ocnrof_prognostic , ocn_c2_glcshelf , &
1586
+ ocn_present , ocn_prognostic , ocnrof_prognostic , &
1587
+ ocn_c2_glcshelf , ocn_c2_glctf , &
1582
1588
ice_present , ice_prognostic , &
1583
1589
glc_present , glc_prognostic , &
1584
1590
glc_coupled_fluxes , &
@@ -1753,6 +1759,7 @@ SUBROUTINE seq_infodata_PutData_explicit( infodata, cime_model, case_name, case_
1753
1759
logical , optional , intent (IN ) :: ocn_prognostic
1754
1760
logical , optional , intent (IN ) :: ocnrof_prognostic
1755
1761
logical , optional , intent (IN ) :: ocn_c2_glcshelf
1762
+ logical , optional , intent (IN ) :: ocn_c2_glctf
1756
1763
logical , optional , intent (IN ) :: ice_present
1757
1764
logical , optional , intent (IN ) :: ice_prognostic
1758
1765
logical , optional , intent (IN ) :: iceberg_prognostic
@@ -1944,6 +1951,7 @@ SUBROUTINE seq_infodata_PutData_explicit( infodata, cime_model, case_name, case_
1944
1951
if ( present (ocn_prognostic) ) infodata% ocn_prognostic = ocn_prognostic
1945
1952
if ( present (ocnrof_prognostic)) infodata% ocnrof_prognostic = ocnrof_prognostic
1946
1953
if ( present (ocn_c2_glcshelf)) infodata% ocn_c2_glcshelf = ocn_c2_glcshelf
1954
+ if ( present (ocn_c2_glctf)) infodata% ocn_c2_glctf = ocn_c2_glctf
1947
1955
if ( present (ice_present) ) infodata% ice_present = ice_present
1948
1956
if ( present (ice_prognostic) ) infodata% ice_prognostic = ice_prognostic
1949
1957
if ( present (iceberg_prognostic)) infodata% iceberg_prognostic = iceberg_prognostic
@@ -2258,6 +2266,7 @@ subroutine seq_infodata_bcast(infodata,mpicom)
2258
2266
call shr_mpi_bcast(infodata% ocn_prognostic, mpicom)
2259
2267
call shr_mpi_bcast(infodata% ocnrof_prognostic, mpicom)
2260
2268
call shr_mpi_bcast(infodata% ocn_c2_glcshelf, mpicom)
2269
+ call shr_mpi_bcast(infodata% ocn_c2_glctf, mpicom)
2261
2270
call shr_mpi_bcast(infodata% ice_present, mpicom)
2262
2271
call shr_mpi_bcast(infodata% ice_prognostic, mpicom)
2263
2272
call shr_mpi_bcast(infodata% iceberg_prognostic, mpicom)
@@ -2554,6 +2563,7 @@ subroutine seq_infodata_Exchange(infodata,ID,type)
2554
2563
call shr_mpi_bcast(infodata% ocn_prognostic, mpicom, pebcast= cmppe)
2555
2564
call shr_mpi_bcast(infodata% ocnrof_prognostic, mpicom, pebcast= cmppe)
2556
2565
call shr_mpi_bcast(infodata% ocn_c2_glcshelf, mpicom, pebcast= cmppe)
2566
+ call shr_mpi_bcast(infodata% ocn_c2_glctf, mpicom, pebcast= cmppe)
2557
2567
call shr_mpi_bcast(infodata% ocn_nx, mpicom, pebcast= cmppe)
2558
2568
call shr_mpi_bcast(infodata% ocn_ny, mpicom, pebcast= cmppe)
2559
2569
call shr_mpi_bcast(infodata% ocn_domain, mpicom, pebcast= cmppe)
@@ -2632,6 +2642,7 @@ subroutine seq_infodata_Exchange(infodata,ID,type)
2632
2642
call shr_mpi_bcast(infodata% ocn_prognostic, mpicom, pebcast= cplpe)
2633
2643
call shr_mpi_bcast(infodata% ocnrof_prognostic, mpicom, pebcast= cplpe)
2634
2644
call shr_mpi_bcast(infodata% ocn_c2_glcshelf, mpicom, pebcast= cplpe)
2645
+ call shr_mpi_bcast(infodata% ocn_c2_glctf, mpicom, pebcast= cplpe)
2635
2646
call shr_mpi_bcast(infodata% ice_present, mpicom, pebcast= cplpe)
2636
2647
call shr_mpi_bcast(infodata% ice_prognostic, mpicom, pebcast= cplpe)
2637
2648
call shr_mpi_bcast(infodata% iceberg_prognostic, mpicom, pebcast= cplpe)
@@ -2984,6 +2995,7 @@ SUBROUTINE seq_infodata_print( infodata )
2984
2995
write (logunit,F0L) subname,' ocn_prognostic = ' , infodata% ocn_prognostic
2985
2996
write (logunit,F0L) subname,' ocnrof_prognostic = ' , infodata% ocnrof_prognostic
2986
2997
write (logunit,F0L) subname,' ocn_c2_glcshelf = ' , infodata% ocn_c2_glcshelf
2998
+ write (logunit,F0L) subname,' ocn_c2_glctf = ' , infodata% ocn_c2_glctf
2987
2999
write (logunit,F0L) subname,' ice_present = ' , infodata% ice_present
2988
3000
write (logunit,F0L) subname,' ice_prognostic = ' , infodata% ice_prognostic
2989
3001
write (logunit,F0L) subname,' iceberg_prognostic = ' , infodata% iceberg_prognostic
0 commit comments