Ignore:
Timestamp:
2015-02-23T17:07:54+01:00 (6 years ago)
Author:
mathiot
Message:

correction of minor bug with isf + add some extra test on ln_isfcav + restore ssu/ssv

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

    r5098 r5104  
    137137         CALL eos( tsb, rhd, rhop, gdept_0(:,:,:) )        ! before potential and in situ densities 
    138138#if ! defined key_c1d 
    139          IF( ln_zps )    CALL zps_hde    ( nit000, jpts, tsb, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
     139         IF( ln_zps .AND. .NOT. ln_isfcav)                                 & 
     140            &            CALL zps_hde    ( nit000, jpts, tsb, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
    140141            &                                            rhd, gru , grv    )  ! of t, s, rd at the last ocean level 
    141          IF( ln_zps .AND. ln_isfcav) & 
     142         IF( ln_zps .AND. ln_isfcav)                                       & 
    142143            &            CALL zps_hde_isf( nit000, jpts, tsb, gtsu, gtsv,  &    ! Partial steps for top cell (ISF) 
    143144            &                                            rhd, gru , grv , aru , arv , gzu , gzv , ge3ru , ge3rv ,   & 
Note: See TracChangeset for help on using the changeset viewer.