Ignore:
Timestamp:
2012-03-12T15:44:43+01:00 (9 years ago)
Author:
gm
Message:

Ediag branche: #927 add Kinetic Energy trend diagnostics (trdken.F90)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD/trdini.F90

    r3318 r3325  
    1111   !!---------------------------------------------------------------------- 
    1212   USE trd_oce        ! trends: ocean variables 
    13 !   USE ldftra_oce     ! ocean active tracers lateral physics 
    14    USE trdglo         ! ocean bassin integral constraints properties 
     13   USE trdken         ! trends: 3D kinetic energy 
     14   USE trdglo         ! trends: global domain integral constraints properties 
    1515   USE trdmld         ! ocean active mixed layer tracers trends  
    1616   USE trdvor         ! ocean vorticity trends  
     
    7979      ! 
    8080       
    81       IF( ln_KE_trd .OR. ln_PE_trd .OR. ln_dyn_mld )   & 
    82          CALL ctl_stop( 'KE, PE, aur ML on momentum are not yet coded we stop' ) 
     81      IF( ln_PE_trd .OR. ln_dyn_mld )   & 
     82         CALL ctl_stop( 'PE, or ML on momentum are not yet coded we stop' ) 
    8383 
    8484      ! 
    85       IF( ln_glo_trd )    CALL trd_glo_init       ! integral constraints trends 
    86       IF( ln_tra_mld )    CALL trd_mld_init       ! mixed-layer trends (active  tracers)   
    87       IF( ln_vor_trd )    CALL trd_vor_init       ! vorticity trends         
     85      IF( ln_glo_trd )   CALL trd_glo_init      ! integral constraints trends 
     86      IF( ln_tra_mld )   CALL trd_mld_init      ! mixed-layer trends (active  tracers)   
     87      IF( ln_vor_trd )   CALL trd_vor_init      ! vorticity trends 
     88      IF( ln_KE_trd  )   CALL trd_ken_init      ! 3D Kinetic energy diagnostics 
     89 
    8890      ! 
    8991!!gm  : Potential BUG : 3D output only for vector invariant form!  add a ctl_stop or code the flux form case 
Note: See TracChangeset for help on using the changeset viewer.