New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9039 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC – NEMO

Ignore:
Timestamp:
2017-12-14T12:16:33+01:00 (6 years ago)
Author:
timgraham
Message:

Bug fixes

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r9030 r9039  
    422422      !!---------------------------------------------------------------------- 
    423423      ! 
    424       IF( ln_wd_il ) CALL wrk_alloc( jpi,jpj, zcpx, zcpy ) 
     424      IF( ln_wd_il ) ALLOCATE(zcpx(jpi,jpj), zcpy(jpi,jpj)) 
    425425      ! 
    426426      IF( kt == nit000 ) THEN 
    … …  
    536536      END DO 
    537537      ! 
    538       IF( ln_wd_il )   DEALLOCATE( zcpx , zcpy ) 
     538      IF( ln_wd_il )  DEALLOCATE( zcpx , zcpy ) 
    539539      ! 
    540540   END SUBROUTINE hpg_sco 

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90

    r9023 r9039  
    424424      ! 
    425425      ! 
    426       CALL wrk_dealloc( jpi, jpj, zflxp, zflxn, zflxu1, zflxv1 ) 
    427       CALL wrk_dealloc( jpi, jpj, zwdlmtu, zwdlmtv) 
    428       ! 
    429  
    430426      IF( nn_timing == 1 )  CALL timing_stop('wad_lmt') 
    431427   END SUBROUTINE wad_lmt_bt 
Note: See TracChangeset for help on using the changeset viewer.