Changeset 9195


Ignore:
Timestamp:
2018-01-09T12:22:46+01:00 (3 years ago)
Author:
clem
Message:

correct a bug introduced at r9169

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

    r9169 r9195  
    241241            jf_usp = 1   ;   jf_vsp = 2   ;   jf_e3t = 3     ! define 3D fields index 
    242242            nfld_3d  = 2 + COUNT( (/.NOT.ln_linssh/) )       ! number of 3D fields to read 
    243             nfld_2d  = 3 + COUNT( (   /ln_read_frq/) )       ! number of 2D fields to read 
     243            nfld_2d  = 3 + COUNT( (/ln_read_frq/) )          ! number of 2D fields to read 
    244244         ELSE 
    245245            jf_usp = 4   ;   jf_e3t = 6                      ! update 2D fields index 
Note: See TracChangeset for help on using the changeset viewer.