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 3871 – NEMO

Changeset 3871


Ignore:
Timestamp:
2013-04-12T13:58:28+02:00 (9 years ago)
Author:
acc
Message:

Branch 2013/dev_r3858_NOC_ZTC, #863. Correction of elusive bug in domvvl.F90 that has been stopping zstar/ztilde working properly with partial steps

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r3865 r3871  
    549549      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( in    ) ::  pe3_in     ! input e3 to be interpolated 
    550550      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( inout ) ::  pe3_out    ! output interpolated e3 
    551       CHARACTER(LEN=1), INTENT( in )                    ::  pout       ! grid point of out scale factors 
     551      CHARACTER(LEN=*), INTENT( in )                    ::  pout       ! grid point of out scale factors 
    552552      !                                                                !   =  'U', 'V', 'W, 'F', 'UW' or 'VW' 
    553553      !! * Local declarations 
Note: See TracChangeset for help on using the changeset viewer.