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/TOP_SRC/TRP/trctrp.F90

    r5098 r5104  
    8383#endif 
    8484 
    85          IF( ln_zps )    CALL zps_hde    ( kstp, jptra, trn, gtru, gtrv )   ! Partial steps: now horizontal gradient of passive 
    86          IF( ln_zps .AND. ln_isfcav) & 
     85         IF( ln_zps  .AND. .NOT. ln_isfcav)        & 
     86            &            CALL zps_hde    ( kstp, jptra, trn, gtru, gtrv )   ! Partial steps: now horizontal gradient of passive 
     87         IF( ln_zps .AND.        ln_isfcav)        & 
    8788            &            CALL zps_hde_isf( kstp, jptra, trn, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )  ! Partial steps: now horizontal gradient of passive 
    8889                                                                ! tracers at the bottom ocean level 
Note: See TracChangeset for help on using the changeset viewer.