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/OFF_SRC/dtadyn.F90

    r5098 r5104  
    539539        ! Partial steps: before Horizontal DErivative 
    540540        ! only gtsu, gtsv, rhd, gru , grv are used  
    541       IF( ln_zps )    CALL zps_hde    ( kt, jpts, pts, gtsu, gtsv,  &  ! Partial steps: before horizontal gradient 
    542         &                                         rhd, gru , grv    )  ! of t, s, rd at the last ocean level 
    543       IF( ln_zps .AND. ln_isfcav) & 
     541      IF( ln_zps  .AND. .NOT. ln_isfcav)                            & 
     542         &            CALL zps_hde    ( kt, jpts, pts, gtsu, gtsv,  &  ! Partial steps: before horizontal gradient 
     543         &                                        rhd, gru , grv    )  ! of t, s, rd at the last ocean level 
     544      IF( ln_zps .AND.        ln_isfcav)                            & 
    544545         &            CALL zps_hde_isf( kt, jpts, pts, gtsu, gtsv,  &    ! Partial steps for top cell (ISF) 
    545546         &                                        rhd, gru , grv , aru , arv , gzu , gzv , ge3ru , ge3rv ,   & 
Note: See TracChangeset for help on using the changeset viewer.