New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 888 for trunk/NEMO/OPA_SRC/DYN – NEMO

Changeset 888 for trunk/NEMO/OPA_SRC/DYN


Ignore:
Timestamp:
2008-04-11T19:05:03+02:00 (16 years ago)
Author:
ctlod
Message:

merge dev_001_SBC branche with the trunk to include the New Surface Module package, see ticket: #113

Location:
trunk/NEMO/OPA_SRC/DYN
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90

    r800 r888  
    1616   USE oce             ! ocean dynamics and tracers  
    1717   USE dom_oce         ! ocean space and time domain  
    18    USE in_out_manager  ! I/O manager 
     18   USE sbc_oce         ! surface boundary condition: ocean 
     19   USE obc_oce         ! Lateral open boundary condition 
    1920   USE phycst          ! physical constants 
    20    USE ocesbc          ! ocean surface boundary condition 
    21    USE obc_oce         ! Lateral open boundary condition 
    2221   USE obc_par         ! open boundary condition parameters 
    2322   USE obcdta          ! open boundary condition data     (obc_dta_bt routine) 
     23   USE in_out_manager  ! I/O manager 
    2424   USE lib_mpp         ! distributed memory computing library 
    2525   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    … …  
    4040   !!---------------------------------------------------------------------- 
    4141   !!  OPA 9.0 , LOCEAN-IPSL (2005)  
    42    !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_exp.F90,v 1.9 2007/06/05 10:38:27 opalod Exp $  
     42   !! $Id$ 
    4343   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    4444   !!---------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r800 r888  
    2525   USE dom_oce         ! ocean space and time domain  
    2626   USE zdf_oce         ! ocean vertical physics 
     27   USE sbc_oce         ! surface boundary condition: ocean 
     28   USE obc_oce         ! Lateral open boundary condition 
     29   USE sol_oce         ! ocean elliptic solver 
    2730   USE phycst          ! physical constants 
    28    USE ocesbc          ! ocean surface boundary condition 
    29    USE flxrnf          ! ocean runoffs 
    30    USE sol_oce         ! ocean elliptic solver 
     31   USE domvvl          ! variable volume 
    3132   USE solver          ! solver initialization 
    3233   USE solpcg          ! preconditionned conjugate gradient solver 
    3334   USE solsor          ! Successive Over-relaxation solver 
    3435   USE solfet          ! FETI solver 
    35    USE obc_oce         ! Lateral open boundary condition 
    3636   USE obcdyn          ! ocean open boundary condition (obc_dyn routines) 
    3737   USE obcvol          ! ocean open boundary condition (obc_vol routines) 
     38   USE cla_dynspg      ! cross land advection 
     39   USE in_out_manager  ! I/O manager 
    3840   USE lib_mpp         ! distributed memory computing library 
    3941   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    40    USE cla_dynspg      ! cross land advection 
    4142   USE prtctl          ! Print control 
    4243   USE solmat          ! matrix construction for elliptic solvers 
    4344   USE agrif_opa_interp 
    44    USE in_out_manager  ! I/O manager 
    4545   USE iom 
    4646   USE restart         ! only for lrst_oce 
    47    USE domvvl          ! variable volume 
    4847 
    4948   IMPLICIT NONE 
    … …  
    5857   !!---------------------------------------------------------------------- 
    5958   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    60    !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_flt.F90,v 1.14 2007/06/05 10:38:27 opalod Exp $  
     59   !! $Id$ 
    6160   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)  
    6261   !!---------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r800 r888  
    2121   USE oce             ! ocean dynamics and tracers 
    2222   USE dom_oce         ! ocean space and time domain 
     23   USE sbc_oce         ! surface boundary condition: ocean 
     24   USE dynspg_oce      ! surface pressure gradient variables 
    2325   USE phycst          ! physical constants 
    24    USE ocesbc          ! ocean surface boundary condition 
     26   USE domvvl          ! variable volume 
    2527   USE obcdta          ! open boundary condition data      
    2628   USE obcfla          ! Flather open boundary condition   
    … …  
    3133   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3234   USE prtctl          ! Print control 
    33    USE dynspg_oce      ! surface pressure gradient variables 
    3435   USE in_out_manager  ! I/O manager 
    3536   USE iom 
    3637   USE restart         ! only for lrst_oce 
    37    USE domvvl          ! variable volume 
    3838 
    3939   IMPLICIT NONE 
    … …  
    5252   !!---------------------------------------------------------------------- 
    5353   !!  OPA 9.0 , LOCEAN-IPSL (2005)  
    54    !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_ts.F90,v 1.16 2007/06/05 10:38:27 opalod Exp $  
     54   !! $Id$ 
    5555   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    5656   !!---------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/DYN/dynzad.F90

    r789 r888  
    1616   USE oce            ! ocean dynamics and tracers 
    1717   USE dom_oce        ! ocean space and time domain 
     18   USE sbc_oce        ! surface boundary condition: ocean 
     19   USE trdmod_oce     ! ocean variables trends 
     20   USE trdmod         ! ocean dynamics trends  
    1821   USE in_out_manager ! I/O manager 
    19    USE trdmod         ! ocean dynamics trends  
    20    USE trdmod_oce     ! ocean variables trends 
    21    USE flxrnf         ! ocean runoffs 
    2222   USE prtctl         ! Print control 
    2323 
    … …  
    3232   !!---------------------------------------------------------------------- 
    3333   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    34    !! $Header$  
     34   !! $Id$ 
    3535   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    3636   !!---------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

    r719 r888  
    1818   USE phycst          ! physical constants 
    1919   USE zdf_oce         ! ocean vertical physics 
     20   USE sbc_oce         ! surface boundary condition: ocean 
    2021   USE in_out_manager  ! I/O manager 
    21    USE taumod          ! surface ocean stress 
    2222 
    2323   IMPLICIT NONE 
    … …  
    3232   !!---------------------------------------------------------------------- 
    3333   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    34    !! $Header$  
     34   !! $Id$ 
    3535   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    3636   !!---------------------------------------------------------------------- 
    … …  
    8181         ! Surface boundary condition 
    8282         DO ji = 2, jpim1 
    83             zwy(ji,1) = taux(ji,jj) * zrau0r 
    84             zww(ji,1) = tauy(ji,jj) * zrau0r 
     83            zwy(ji,1) = utau(ji,jj) * zrau0r 
     84            zww(ji,1) = vtau(ji,jj) * zrau0r 
    8585         END DO   
    8686 

  • trunk/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

    r719 r888  
    1414   !!---------------------------------------------------------------------- 
    1515   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    16    !! $Header$  
     16   !! $Id$ 
    1717   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1818   !!---------------------------------------------------------------------- 
    … …  
    2020   USE oce             ! ocean dynamics and tracers 
    2121   USE dom_oce         ! ocean space and time domain 
     22   USE sbc_oce         ! surface boundary condition: ocean 
     23   USE zdf_oce         ! ocean vertical physics 
    2224   USE phycst          ! physical constants 
    23    USE zdf_oce         ! ocean vertical physics 
    2425   USE in_out_manager  ! I/O manager 
    25    USE taumod          ! surface ocean stress 
    2626 
    2727   IMPLICIT NONE 
    … …  
    3636   !!---------------------------------------------------------------------- 
    3737   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    38    !! $Header$  
     38   !! $Id$ 
    3939   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    4040   !!---------------------------------------------------------------------- 
    … …  
    141141!!! change les resultats (derniers digit, pas significativement + rapide 1* de moins) 
    142142!!!         ua(ji,jj,1) = ub(ji,jj,1)  & 
    143 !!!                      + p2dt * ( ua(ji,jj,1) + taux(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) ) 
     143!!!                      + p2dt * ( ua(ji,jj,1) + utau(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) ) 
    144144            z2dtf = p2dt / ( fse3u(ji,jj,1)*rau0 ) 
    145145            ua(ji,jj,1) = ub(ji,jj,1)  & 
    146                          + p2dt *  ua(ji,jj,1) + z2dtf * taux(ji,jj) 
     146                         + p2dt *  ua(ji,jj,1) + z2dtf * utau(ji,jj) 
    147147         END DO 
    148148      END DO 
    … …  
    236236!!! change les resultats (derniers digit, pas significativement + rapide 1* de moins) 
    237237!!!         va(ji,jj,1) = vb(ji,jj,1)  & 
    238 !!!                      + p2dt * ( va(ji,jj,1) + tauy(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) ) 
     238!!!                      + p2dt * ( va(ji,jj,1) + vtau(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) ) 
    239239            z2dtf = p2dt / ( fse3v(ji,jj,1)*rau0 ) 
    240240            va(ji,jj,1) = vb(ji,jj,1)  & 
    241                          + p2dt * va(ji,jj,1) + z2dtf * tauy(ji,jj) 
     241                         + p2dt * va(ji,jj,1) + z2dtf * vtau(ji,jj) 
    242242         END DO 
    243243      END DO 

  • trunk/NEMO/OPA_SRC/DYN/wzvmod.F90

    r789 r888  
    1313   USE oce             ! ocean dynamics and tracers variables 
    1414   USE dom_oce         ! ocean space and time domain variables  
     15   USE sbc_oce         ! surface boundary condition: ocean 
     16   USE domvvl          ! Variable volume 
    1517   USE in_out_manager  ! I/O manager 
    1618   USE prtctl          ! Print control 
    17  
    18    USE domvvl          ! Variable volume 
    1919   USE phycst 
    20    USE ocesbc          ! ocean surface boundary condition 
    2120   USE lbclnk          ! ocean lateral boundary condition (or mpp link) 
    2221 
    … …  
    3130   !!---------------------------------------------------------------------- 
    3231   !!  OPA 9.0 , LOCEAN-IPSL (2005)  
    33    !! $Header$  
     32   !! $Id$ 
    3433   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    3534   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.