Changeset 9465


Ignore:
Timestamp:
2018-04-06T19:57:53+02:00 (3 years ago)
Author:
mathiot
Message:

ssh_bkginc deallocated twice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r9254 r9465  
    735735            ssh_iau(:,:) = ssh_bkginc(:,:) * zincwgt 
    736736#endif 
    737             IF ( kt == nitiaufin_r ) THEN 
    738                DEALLOCATE( ssh_bkginc ) 
    739             ENDIF 
     737            ! 
     738         ELSE IF( kt == nitiaufin_r+1 ) THEN 
     739            ! 
     740            ! test on ssh_bkginc needed as ssh_asm_inc is called twice by time step 
     741            IF (ALLOCATED(ssh_bkginc)) DEALLOCATE( ssh_bkginc ) 
    740742            ! 
    741743#if defined key_asminc 
    742          ELSE IF( kt == nitiaufin_r+1 ) THEN 
    743             ! 
    744744            ssh_iau(:,:) = 0._wp 
    745             ! 
    746 #endif 
     745#endif 
     746            ! 
    747747         ENDIF 
    748748         !                          !----------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.