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 2827 for branches/2011/dev_r2802_NOCS_vvlfix/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 – NEMO

Ignore:
Timestamp:
2011-08-11T18:50:46+02:00 (13 years ago)
Author:
acc
Message:

Branch: dev_r2802_NOCS_vvlfix, minor correction to allow domvvl.F90 to be compiled without key_vvl

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_r2802_NOCS_vvlfix/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r2807 r2827  
    234234   SUBROUTINE dom_vvl 
    235235   END SUBROUTINE dom_vvl 
    236    SUBROUTINE dom_vvl_2 
     236   SUBROUTINE dom_vvl_2(kdum, pudum, pvdum ) 
     237      USE par_kind 
     238      INTEGER                   , INTENT(in   ) ::   kdum        
     239      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   pudum, pvdum 
    237240   END SUBROUTINE dom_vvl_2 
    238241#endif 
Note: See TracChangeset for help on using the changeset viewer.