Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
- Property svn:eol-style deleted
r1694 r2528 14 14 !! 2.0 ! 2006-11 (G. Madec) flux form advection: add metric term 15 15 !! 3.2 ! 2009-04 (R. Benshila) vvl: correction of een scheme 16 !! 3.3 ! 2010-10 (C. Ethe, G. Madec) reorganisation of initialisation phase 16 17 !!---------------------------------------------------------------------- 17 18 18 19 !!---------------------------------------------------------------------- 19 !! dyn_vor : Update the momentum trend with the vorticity trend20 !! vor_ens : enstrophy conserving scheme (ln_dynvor_ens=T)21 !! vor_ene : energy conserving scheme (ln_dynvor_ene=T)22 !! vor_mix : mixed enstrophy/energy conserving (ln_dynvor_mix=T)23 !! vor_een : energy and enstrophy conserving (ln_dynvor_een=T)24 !! vor_ctl: set and control of the different vorticity option20 !! dyn_vor : Update the momentum trend with the vorticity trend 21 !! vor_ens : enstrophy conserving scheme (ln_dynvor_ens=T) 22 !! vor_ene : energy conserving scheme (ln_dynvor_ene=T) 23 !! vor_mix : mixed enstrophy/energy conserving (ln_dynvor_mix=T) 24 !! vor_een : energy and enstrophy conserving (ln_dynvor_een=T) 25 !! dyn_vor_init : set and control of the different vorticity option 25 26 !!---------------------------------------------------------------------- 26 27 USE oce ! ocean dynamics and tracers … … 36 37 PRIVATE 37 38 38 PUBLIC dyn_vor ! routine called by step.F90 39 PUBLIC dyn_vor ! routine called by step.F90 40 PUBLIC dyn_vor_init ! routine called by opa.F90 39 41 40 42 ! !!* Namelist namdyn_vor: vorticity term … … 53 55 # include "vectopt_loop_substitute.h90" 54 56 !!---------------------------------------------------------------------- 55 !! NEMO/OPA 3 ,2 , LOCEAN-IPSL (2009)57 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 56 58 !! $Id$ 57 !! Software governed by the CeCILL licence ( modipsl/doc/NEMO_CeCILL.txt)59 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 58 60 !!---------------------------------------------------------------------- 59 61 … … 74 76 INTEGER, INTENT( in ) :: kt ! ocean time-step index 75 77 !!---------------------------------------------------------------------- 76 77 IF( kt == nit000 ) CALL vor_ctl ! initialisation & control of options78 78 79 79 ! ! vorticity term … … 637 637 638 638 639 SUBROUTINE vor_ctl639 SUBROUTINE dyn_vor_init 640 640 !!--------------------------------------------------------------------- 641 !! *** ROUTINE vor_ctl***641 !! *** ROUTINE dyn_vor_init *** 642 642 !! 643 643 !! ** Purpose : Control the consistency between cpp options for … … 653 653 IF(lwp) THEN ! Namelist print 654 654 WRITE(numout,*) 655 WRITE(numout,*) 'dyn :vor_ctl: vorticity term : read namelist and control the consistency'656 WRITE(numout,*) '~~~~~~~~~~~ '655 WRITE(numout,*) 'dyn_vor_init : vorticity term : read namelist and control the consistency' 656 WRITE(numout,*) '~~~~~~~~~~~~' 657 657 WRITE(numout,*) ' Namelist namdyn_vor : oice of the vorticity term scheme' 658 658 WRITE(numout,*) ' energy conserving scheme ln_dynvor_ene = ', ln_dynvor_ene … … 700 700 ENDIF 701 701 ! 702 END SUBROUTINE vor_ctl702 END SUBROUTINE dyn_vor_init 703 703 704 704 !!==============================================================================
Note: See TracChangeset
for help on using the changeset viewer.