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 708 for trunk/NEMO/OPA_SRC/DYN – NEMO

Changeset 708 for trunk/NEMO/OPA_SRC/DYN


Ignore:
Timestamp:
2007-10-10T15:11:42+02:00 (17 years ago)
Author:
smasson
Message:

continue changeset:704, see ticket:5

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

Legend:

Unmodified
Added
Removed

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

    r699 r708  
    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) 

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

    r699 r708  
    1515   USE oce             ! ocean dynamics and tracers  
    1616   USE dom_oce         ! ocean space and time domain  
    17    USE in_out_manager  ! I/O manager 
     17   USE sbc_oce         ! surface boundary condition: ocean 
     18   USE obc_oce         ! Lateral open boundary condition 
    1819   USE phycst          ! physical constants 
    19    USE ocesbc          ! ocean surface boundary condition 
    20    USE obc_oce         ! Lateral open boundary condition 
    2120   USE obc_par         ! open boundary condition parameters 
    2221   USE obcdta          ! open boundary condition data     (obc_dta_bt routine) 
     22   USE in_out_manager  ! I/O manager 
    2323   USE lib_mpp         ! distributed memory computing library 
    2424   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 

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

    r699 r708  
    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 
    … …  
    3435   USE solfet          ! FETI solver 
    3536   USE solsor_e        ! Successive Over-relaxation solver with MPP optimization 
    36    USE obc_oce         ! Lateral open boundary condition 
    3737   USE obcdyn          ! ocean open boundary condition (obc_dyn routines) 
    3838   USE obcvol          ! ocean open boundary condition (obc_vol routines) 
     39   USE cla_dynspg      ! cross land advection 
     40   USE in_out_manager  ! I/O manager 
    3941   USE lib_mpp         ! distributed memory computing library 
    4042   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    41    USE cla_dynspg      ! cross land advection 
    4243   USE prtctl          ! Print control 
    4344   USE solmat          ! matrix construction for elliptic solvers 
    4445   USE agrif_opa_interp 
    45    USE in_out_manager  ! I/O manager 
    4646   USE iom 
    4747   USE restart         ! only for lrst_oce 
    48    USE domvvl          ! variable volume 
    4948 
    5049   IMPLICIT NONE 

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

    r699 r708  
    1616   USE dom_oce         ! ocean space and time domain 
    1717   USE zdf_oce         ! ocean vertical physics 
     18   USE sbc_oce         ! surface boundary condition: ocean 
     19   USE sol_oce         ! ocean elliptic solver 
     20   USE obc_oce         ! Lateral open boundary condition 
    1821   USE phycst          ! physical constant 
    19    USE ocesbc          ! Ocean Surface Boundary condition 
    20    USE flxrnf          ! ocean runoffs 
    21    USE sol_oce         ! ocean elliptic solver 
     22   USE dynspg_flt      ! surface pressure gradient 
    2223   USE solpcg          ! preconditionned conjugate gradient solver 
    2324   USE solsor          ! Successive Over-relaxation solver 
    … …  
    2526   USE solsor_e        ! Successive Over-relaxation solver with MPP optimization 
    2627   USE solver 
    27    USE obc_oce         ! Lateral open boundary condition 
    2828   USE obcdyn          ! ocean open boundary condition (obc_dyn routines) 
    2929   USE obcvol          ! ocean open boundary condition (obc_vol routines) 
    … …  
    3131   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3232   USE cla_dynspg      ! cross land advection 
     33   USE in_out_manager  ! I/O manager 
    3334   USE prtctl          ! Print control 
    34    USE in_out_manager  ! I/O manager 
    3535   USE solmat          ! matrix construction for elliptic solvers 
    3636   USE agrif_opa_interp 
    3737   USE restart         ! only for lrst_oce 
    3838   USE iom             ! I/O library 
    39    USE dynspg_flt      ! surface pressure gradient 
    4039 
    4140   IMPLICIT NONE 

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

    r699 r708  
    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 dynspg_oce      ! surface pressure gradient variables 
    2224   USE phycst          ! physical constants 
    23    USE ocesbc          ! ocean surface boundary condition 
     25   USE domvvl          ! variable volume 
    2426   USE obcdta          ! open boundary condition data      
    2527   USE obcfla          ! Flather open boundary condition   
    … …  
    3032   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3133   USE prtctl          ! Print control 
    32    USE dynspg_oce      ! surface pressure gradient variables 
    3334   USE in_out_manager  ! I/O manager 
    3435   USE iom 
    3536   USE restart         ! only for lrst_oce 
    36    USE domvvl          ! variable volume 
    3737 
    3838   IMPLICIT NONE 

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

    r699 r708  
    1414   USE oce             ! ocean dynamics and tracers 
    1515   USE dom_oce         ! ocean space and time domain 
     16   USE sbc_oce         ! surface boundary condition: ocean 
     17   USE obc_oce         ! Lateral open boundary condition 
     18   USE obc_par         ! open boundary condition parameters 
     19   USE dynspg_oce      ! surface pressure gradient variables 
     20   USE dynspg_ts       ! surface pressure gradient 
    1621   USE phycst          ! physical constants 
    17    USE ocesbc          ! ocean surface boundary condition 
    1822   USE obcdta          ! open boundary condition data      
    1923   USE obcfla          ! Flather open boundary condition   
    2024   USE dynvor          ! vorticity term 
    21    USE obc_oce         ! Lateral open boundary condition 
    22    USE obc_par         ! open boundary condition parameters 
    2325   USE lib_mpp         ! distributed memory computing library 
    2426   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2527   USE prtctl          ! Print control 
    26    USE dynspg_oce      ! surface pressure gradient variables 
    27    USE dynspg_ts       ! surface pressure gradient 
    2828   USE in_out_manager  ! I/O manager 
    2929   USE iom             ! I/O library 

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

    r699 r708  
    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 

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

    r699 r708  
    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 

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

    r699 r708  
    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 

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

    r699 r708  
    1515   USE oce             ! ocean dynamics and tracers 
    1616   USE dom_oce         ! ocean space and time domain 
     17   USE zdf_oce         ! ocean vertical physics 
     18   USE sbc_oce         ! surface boundary condition: ocean 
    1719   USE phycst          ! physical constants 
    18    USE zdf_oce         ! ocean vertical physics 
    1920   USE in_out_manager  ! I/O manager 
    20    USE taumod          ! surface ocean stress 
    2121 
    2222   IMPLICIT NONE 

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

    r699 r708  
    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 
Note: See TracChangeset for help on using the changeset viewer.