Changeset 2848


Ignore:
Timestamp:
2011-09-21T12:33:48+02:00 (9 years ago)
Author:
cbricaud
Message:

add routines for online transports computing

Location:
branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r2715 r2848  
    105105   !!                        logical units 
    106106   !!---------------------------------------------------------------------- 
    107    INTEGER ::   numstp     =   -1      !: logical unit for time step 
    108    INTEGER ::   numout     =    6      !: logical unit for output print 
    109    INTEGER ::   numnam     =   -1      !: logical unit for namelist 
    110    INTEGER ::   numnam_ice =   -1      !: logical unit for ice namelist 
    111    INTEGER ::   numevo_ice =   -1      !: logical unit for ice variables (temp. evolution) 
    112    INTEGER ::   numsol     =   -1      !: logical unit for solver statistics 
     107   INTEGER ::   numstp      =   -1      !: logical unit for time step 
     108   INTEGER ::   numout      =    6      !: logical unit for output print 
     109   INTEGER ::   numnam      =   -1      !: logical unit for namelist 
     110   INTEGER ::   numnam_ice  =   -1      !: logical unit for ice namelist 
     111   INTEGER ::   numevo_ice  =   -1      !: logical unit for ice variables (temp. evolution) 
     112   INTEGER ::   numsol      =   -1      !: logical unit for solver statistics 
     113   INTEGER ::   numdct_in   =   -1      !: logical unit for transports computing 
     114   INTEGER ::   numdct_vol  =   -1      !: logical unit for voulume transports output 
     115   INTEGER ::   numdct_heat =   -1      !: logical unit for heat    transports output 
     116   INTEGER ::   numdct_salt =   -1      !: logical unit for salt    transports output 
    113117 
    114118   !!---------------------------------------------------------------------- 
  • branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r2715 r2848  
    5757   USE sshwzv          ! vertical velocity used in asm 
    5858   USE diaptr          ! poleward transports           (dia_ptr_init routine) 
     59   USE diadct          ! sections transports           (dia_dct_init routine) 
    5960   USE diaobs          ! Observation diagnostics       (dia_obs_init routine) 
    6061   USE step            ! NEMO time-stepping                 (stp     routine) 
     
    345346      IF( lk_diaar5     )   CALL dia_ar5_init   ! ar5 diag 
    346347                            CALL dia_ptr_init   ! Poleward TRansports initialization 
     348      IF( lk_diadct     )   CALL dia_dct_init   ! Sections tranports 
    347349                            CALL dia_hsb_init   ! heat content, salt content and volume budgets 
    348350                            CALL trd_mod_init   ! Mixed-layer/Vorticity/Integral constraints trends 
     
    456458      CALL iom_close                                 ! close all input/output files managed by iom_* 
    457459      ! 
    458       IF( numstp     /= -1 )   CLOSE( numstp     )   ! time-step file 
    459       IF( numsol     /= -1 )   CLOSE( numsol     )   ! solver file 
    460       IF( numnam     /= -1 )   CLOSE( numnam     )   ! oce namelist 
    461       IF( numnam_ice /= -1 )   CLOSE( numnam_ice )   ! ice namelist 
    462       IF( numevo_ice /= -1 )   CLOSE( numevo_ice )   ! ice variables (temp. evolution) 
    463       IF( numout     /=  6 )   CLOSE( numout     )   ! standard model output file 
     460      IF( numstp      /= -1 )   CLOSE( numstp      )   ! time-step file 
     461      IF( numsol      /= -1 )   CLOSE( numsol      )   ! solver file 
     462      IF( numnam      /= -1 )   CLOSE( numnam      )   ! oce namelist 
     463      IF( numnam_ice  /= -1 )   CLOSE( numnam_ice  )   ! ice namelist 
     464      IF( numevo_ice  /= -1 )   CLOSE( numevo_ice  )   ! ice variables (temp. evolution) 
     465      IF( numout      /=  6 )   CLOSE( numout      )   ! standard model output file 
     466      IF( numdct_vol  /= -1 )   CLOSE( numdct_vol  )   ! volume transports 
     467      IF( numdct_heat /= -1 )   CLOSE( numdct_heat )   ! heat transports 
     468      IF( numdct_salt /= -1 )   CLOSE( numdct_salt )   ! salt transports 
     469 
    464470      ! 
    465471      numout = 6                                     ! redefine numout in case it is used after this point... 
  • branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC/step.F90

    r2715 r2848  
    164164      IF( lk_diafwb  )   CALL dia_fwb( kstp )         ! Fresh water budget diagnostics 
    165165      IF( ln_diaptr  )   CALL dia_ptr( kstp )         ! Poleward TRansports diagnostics 
     166      IF( lk_diadct  )   CALL dia_dct( kstp )         ! Transports 
    166167      IF( lk_diaar5  )   CALL dia_ar5( kstp )         ! ar5 diag 
    167168                         CALL dia_wri( kstp )         ! ocean model: outputs 
  • branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r2528 r2848  
    8181   USE trdvor           ! vorticity budget                 (trd_vor routine) 
    8282   USE diaptr           ! poleward transports              (dia_ptr routine) 
     83   USE diadct           ! sections transports              (dia_dct routine) 
    8384   USE diaar5           ! AR5 diagnosics                   (dia_ar5 routine) 
    8485   USE diahth           ! thermocline depth                (dia_hth routine) 
Note: See TracChangeset for help on using the changeset viewer.