midhun_ndr@gmail_com
New Member
Hi,I'm getting the following error while POP2 tries to write monthly output file.forrtl: severe (408): fort: (8): Attempt to fetch from allocatable variable TAVG_MOC_G when it is not allocatedHow to fix this issue?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
CESM 1.2 fails while writing monthly POP2 output file
- Thread starter midhun_ndr@gmail_com
- Start date
Hi:Not all compilers will flag this. I think the issue is that this array is only really used and allocated on the root processor for IO. Because all the processors list it as being an allocatable array it must be allocated on those processors as well. It is all right to allocate a small version of this array on those other processors. You would use a construct like this: if ( my_task == ioroot ) then allocate (TAVG_MOC_G(n_lat_aux_grid+1,km+1,n_moc_comp,n_transport_reg)) else allocate (TAVG_MOC_G(1, 1, 1, 1)) endif Could you try this and see if it works for your case? I believe there are other instances of this
Hi:Not all compilers will flag this. I think the issue is that this array is only really used and allocated on the root processor for IO. Because all the processors list it as being an allocatable array it must be allocated on those processors as well. It is all right to allocate a small version of this array on those other processors. You would use a construct like this: if ( my_task == ioroot ) then allocate (TAVG_MOC_G(n_lat_aux_grid+1,km+1,n_moc_comp,n_transport_reg)) else allocate (TAVG_MOC_G(1, 1, 1, 1)) endif Could you try this and see if it works for your case? I believe there are other instances of this
Hi:Not all compilers will flag this. I think the issue is that this array is only really used and allocated on the root processor for IO. Because all the processors list it as being an allocatable array it must be allocated on those processors as well. It is all right to allocate a small version of this array on those other processors. You would use a construct like this: if ( my_task == ioroot ) then allocate (TAVG_MOC_G(n_lat_aux_grid+1,km+1,n_moc_comp,n_transport_reg)) else allocate (TAVG_MOC_G(1, 1, 1, 1)) endif Could you try this and see if it works for your case? I believe there are other instances of this
midhun_ndr@gmail_com
New Member
Yes, it worked. I have modified the program (diags_on_lat_aux_grid.F90) as you suggested.I have made the similar modification for other three variable too; TAVG_N_HEAT_TRANS_G, TAVG_N_SALT_TRANS_G, and TR_TRANS_G. Thank you
midhun_ndr@gmail_com
New Member
Yes, it worked. I have modified the program (diags_on_lat_aux_grid.F90) as you suggested.I have made the similar modification for other three variable too; TAVG_N_HEAT_TRANS_G, TAVG_N_SALT_TRANS_G, and TR_TRANS_G. Thank you
midhun_ndr@gmail_com
New Member
Yes, it worked. I have modified the program (diags_on_lat_aux_grid.F90) as you suggested.I have made the similar modification for other three variable too; TAVG_N_HEAT_TRANS_G, TAVG_N_SALT_TRANS_G, and TR_TRANS_G. Thank you