Changeset 10097


Ignore:
Timestamp:
2018-09-07T14:02:42+02:00 (2 years ago)
Author:
cetlod
Message:

v4.0 minor bug correction

Location:
NEMO/trunk/src/TOP
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/TRP/trcnxt.F90

    r10096 r10097  
    130130            CALL trd_tra( kt, 'TRC', jn, jptra_tot, ztrdt(:,:,:,jn) ) 
    131131         ENDDO 
    132  
    133          ENDIF 
    134132         ! 
    135133         IF( ln_linssh ) THEN       ! linear sea surface height only 
  • NEMO/trunk/src/TOP/oce_trc.F90

    r9490 r10097  
    8282   USE ldfslp , ONLY :   wslpi      =>   wslpi        !: i-slope at w-point 
    8383   USE ldfslp , ONLY :   wslpj      =>   wslpj        !: j-slope at w-point 
    84    USE ldfslp , ONLY :  ln_traldf_triad => ln_traldf_triad   !: use of triad scheme 
     84   USE ldfslp , ONLY :   ln_traldf_triad => ln_traldf_triad   !: use of triad scheme 
     85   USE ldfslp , ONLY :   ln_traldf_iso => ln_traldf_iso   !: use of isopycnal scheme 
    8586!!gm end 
    8687 
Note: See TracChangeset for help on using the changeset viewer.