Changeset 414


Ignore:
Timestamp:
2006-03-20T18:30:18+01:00 (15 years ago)
Author:
opalod
Message:

nemo_v1_bugfix_025 : CT : correction of various bugs in the computation of the Poleward Heat Transport

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/step.F90

    r392 r414  
    172172      !!    "   !  04-08  (C. Talandier) New trends organization 
    173173      !!    "   !  05-01  (C. Ethe) Add the KPP closure scheme 
     174      !!    "   !  05-11  (V. Garnier) Surface pressure gradient organization 
    174175      !!---------------------------------------------------------------------- 
    175176      !! * Arguments 
     
    371372                               va(:,:,:) = 0.e0 
    372373 
    373       CALL dyn_keg( kstp )           ! horizontal gradient of kinetic energy 
     374                               CALL dyn_keg( kstp )           ! horizontal gradient of kinetic energy 
    374375 
    375376      !                                                       ! vorticity term including Coriolis 
     
    396397      ENDIF 
    397398 
    398       CALL dyn_zad    ( kstp )       ! vertical advection        
     399                               CALL dyn_zad    ( kstp )       ! vertical advection        
    399400 
    400401      !                                                       ! vertical diffusion 
     
    454455         IF( lk_diahdy  )   CALL dia_hdy( kstp )                 ! dynamical heigh diagnostics 
    455456         IF( lk_diafwb  )   CALL dia_fwb( kstp )                 ! Fresh water budget diagnostics 
    456  
    457          IF( ln_diaptr .AND. ( kstp == nit000 .OR. MOD( kstp, nf_ptr ) == 0 ) )  & 
    458                             CALL dia_ptr( kstp )                 ! Poleward TRansports diagnostics 
     457         IF( ln_diaptr  )   CALL dia_ptr( kstp )                 ! Poleward TRansports diagnostics 
    459458 
    460459         !                                         ! save and outputs 
Note: See TracChangeset for help on using the changeset viewer.