j08lue@gmail_com
New Member
Dear CESM/POP community,
I would like to analyze the exact initial conditions that POP uses when started from PHC2/Levitus data (`ccsm_startup` option).
I need the fields for different grid resolutions (in particular gx3v7 and gx1v6).
The problem is that they seem only to be available in some .ieeer8 binary format that I am unable read.
Are they by any chance also available as netCDF or is there a way of reading them?
Best regards,
Jonas
PS: For anyone looking into this: The files are located in `DIN_LOC_ROOT/ocn/pop//ic`, named e.g. `ts_PHC2_jan_ic_gx1v6_20090205.ieeer8` and read using the subroutine `init_ts` from `initial.F90`:
1117 in_file = construct_file(init_ts_file_fmt, &
1118 full_name=trim(init_ts_file), &
1119 record_length = rec_type_dbl, &
1120 recl_words=nx_global*ny_global)
1121 call data_set(in_file,'open_read')
1122
1123 i_dim = construct_io_dim('i',nx_global)
1124 j_dim = construct_io_dim('j',ny_global)
1125 k_dim = construct_io_dim('k',km)
1126
1127 io_temp = construct_io_field('TEMPERATURE', &
1128 dim1=i_dim, dim2=j_dim, dim3=k_dim, &
1129 field_loc = field_loc_center, &
1130 field_type = field_type_scalar, &
1131 d3d_array=TEMP_DATA)
1132 io_salt = construct_io_field('SALINITY', &
1133 dim1=i_dim, dim2=j_dim, dim3=k_dim, &
1134 field_loc = field_loc_center, &
1135 field_type = field_type_scalar, &
1136 d3d_array=TEMP_DATA)
1137
1138 call data_set(in_file,'define',io_temp)
1139 call data_set(in_file,'define',io_salt)
1140
1141 call data_set(in_file,'read' ,io_temp)
1142 do iblock=1,nblocks_clinic
1143 TRACER(:,:,:,1,curtime,iblock) = TEMP_DATA(:,:,:,iblock)
1144 end do
1145 call data_set(in_file,'read' ,io_salt)
1146 do iblock=1,nblocks_clinic
1147 TRACER(:,:,:,2,curtime,iblock) = TEMP_DATA(:,:,:,iblock)
1148 end do
I would like to analyze the exact initial conditions that POP uses when started from PHC2/Levitus data (`ccsm_startup` option).
I need the fields for different grid resolutions (in particular gx3v7 and gx1v6).
The problem is that they seem only to be available in some .ieeer8 binary format that I am unable read.
Are they by any chance also available as netCDF or is there a way of reading them?
Best regards,
Jonas
PS: For anyone looking into this: The files are located in `DIN_LOC_ROOT/ocn/pop//ic`, named e.g. `ts_PHC2_jan_ic_gx1v6_20090205.ieeer8` and read using the subroutine `init_ts` from `initial.F90`:
1117 in_file = construct_file(init_ts_file_fmt, &
1118 full_name=trim(init_ts_file), &
1119 record_length = rec_type_dbl, &
1120 recl_words=nx_global*ny_global)
1121 call data_set(in_file,'open_read')
1122
1123 i_dim = construct_io_dim('i',nx_global)
1124 j_dim = construct_io_dim('j',ny_global)
1125 k_dim = construct_io_dim('k',km)
1126
1127 io_temp = construct_io_field('TEMPERATURE', &
1128 dim1=i_dim, dim2=j_dim, dim3=k_dim, &
1129 field_loc = field_loc_center, &
1130 field_type = field_type_scalar, &
1131 d3d_array=TEMP_DATA)
1132 io_salt = construct_io_field('SALINITY', &
1133 dim1=i_dim, dim2=j_dim, dim3=k_dim, &
1134 field_loc = field_loc_center, &
1135 field_type = field_type_scalar, &
1136 d3d_array=TEMP_DATA)
1137
1138 call data_set(in_file,'define',io_temp)
1139 call data_set(in_file,'define',io_salt)
1140
1141 call data_set(in_file,'read' ,io_temp)
1142 do iblock=1,nblocks_clinic
1143 TRACER(:,:,:,1,curtime,iblock) = TEMP_DATA(:,:,:,iblock)
1144 end do
1145 call data_set(in_file,'read' ,io_salt)
1146 do iblock=1,nblocks_clinic
1147 TRACER(:,:,:,2,curtime,iblock) = TEMP_DATA(:,:,:,iblock)
1148 end do