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 9044 for branches/2017/dev_merge_2017 – NEMO

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

Remove wrk_alloc in asminc.F90

File:
1 edited

Legend:

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

    r9023 r9044  
    813813         phdivn(:,:,1) = phdivn(:,:,1) - ssh_iau(:,:) / e3t_n(:,:,1) * tmask(:,:,1) 
    814814      ELSE  
    815          CALL wrk_alloc( jpi,jpj, ztim) 
     815         ALLOCATE( ztim(jpi,jpj) ) 
    816816         ztim(:,:) = ssh_iau(:,:) / ( ht_n(:,:) + 1.0 - ssmask(:,:) ) 
    817817         DO jk = 1, jpkm1                                  
     
    819819         END DO 
    820820         ! 
    821          CALL wrk_dealloc( jpi,jpj, ztim) 
     821         DEALLOCATE(ztim) 
    822822      ENDIF 
    823823#endif 
Note: See TracChangeset for help on using the changeset viewer.