Skip to content
Snippets Groups Projects
Commit ea979883 authored by Andrew Coward's avatar Andrew Coward
Browse files

Fix istate.F90 to avoid access to unallocated arrays in the SWE case. This...

Fix istate.F90 to avoid access to unallocated arrays in the SWE case. This change enables the SWG configuration to pass SETTE tests
parent c2a4e974
No related branches found
No related tags found
No related merge requests found
......@@ -79,10 +79,12 @@ CONTAINS
CALL dta_tsd_init ! Initialisation of T & S input data
IF( ln_c1d) CALL dta_uvd_init ! Initialisation of U & V input data (c1d only)
rhd (:,:,: ) = 0._wp ; rhop (:,:,: ) = 0._wp ! set one for all to 0 at level jpk
rn2b (:,:,: ) = 0._wp ; rn2 (:,:,: ) = 0._wp ! set one for all to 0 at levels 1 and jpk
ts (:,:,:,:,Kaa) = 0._wp ! set one for all to 0 at level jpk
rab_b(:,:,:,: ) = 0._wp ; rab_n(:,:,:,:) = 0._wp ! set one for all to 0 at level jpk
ts (:,:,:,:,Kaa) = 0._wp ; rn2 (:,:,: ) = 0._wp ! set one for all to 0 at levels 1 and jpk
IF ( ALLOCATED( rhd ) ) THEN ! SWE, for example, will not have allocated these
rhd (:,:,: ) = 0._wp ; rhop (:,:,: ) = 0._wp ! set one for all to 0 at level jpk
rn2b (:,:,: ) = 0._wp ! set one for all to 0 at level jpk
rab_b(:,:,:,: ) = 0._wp ; rab_n(:,:,:,:) = 0._wp ! set one for all to 0 at level jpk
ENDIF
#if defined key_agrif
uu (:,:,: ,Kaa) = 0._wp ! used in agrif_oce_sponge at initialization
vv (:,:,: ,Kaa) = 0._wp ! used in agrif_oce_sponge at initialization
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment