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 – NEMO

Changeset 708 for trunk/NEMO/OPA_SRC


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
Files:
33 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diafwb.F90

    r699 r708  
    1313   USE oce             ! ocean dynamics and tracers 
    1414   USE dom_oce         ! ocean space and time domain 
     15   USE sbc_oce         ! surface boundary condition: ocean 
     16   USE zdf_oce         ! ocean vertical physics 
    1517   USE phycst          ! physical constants 
    16    USE zdf_oce         ! ocean vertical physics 
    1718   USE in_out_manager  ! I/O manager 
    18    USE flxrnf          ! ??? 
    19    USE ocesbc          ! ??? 
    20    USE blk_oce         ! ??? 
    21    USE flxblk          ! atmospheric surface quantity 
    2219   USE lib_mpp         ! distributed memory computing library 
    2320 
  • trunk/NEMO/OPA_SRC/DIA/diawri.F90

    r699 r708  
    1414   USE sol_oce         ! solver variables 
    1515   USE ice_oce         ! ice variables 
     16   USE sbc_oce         ! surface boundary condition: ocean 
    1617   USE phycst          ! physical constants 
    1718   USE ocfzpt          ! ocean freezing point 
    18    USE ocesbc          ! surface thermohaline fluxes 
    19    USE taumod          ! surface stress 
    20    USE flxrnf          ! ocean runoffs 
    2119   USE zdfmxl          ! mixed layer 
    2220   USE daymod          ! calendar 
     
    2725   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2826   USE in_out_manager  ! I/O manager 
    29    USE flx_oce         ! sea-ice/ocean forcings variables 
    3027   USE diadimg         ! dimg direct access file format output 
    3128   USE ioipsl 
  • trunk/NEMO/OPA_SRC/DOM/domain.F90

    r699 r708  
    1313   USE oce             !  
    1414   USE dom_oce         ! ocean space and time domain 
    15    USE phycst          ! physical constants 
    16    USE in_out_manager  ! I/O manager 
    1715   USE ice_oce         ! ice variables 
    1816   USE blk_oce         ! bulk variables 
    19    USE flxrnf          ! runoffs 
     17   USE sbc_oce         ! surface boundary condition: ocean 
     18   USE phycst          ! physical constants 
    2019   USE daymod          ! calendar 
     20   USE in_out_manager  ! I/O manager 
    2121   USE lib_mpp         ! distributed memory computing library 
    2222 
  • trunk/NEMO/OPA_SRC/DOM/domvvl.F90

    r699 r708  
    1818   USE oce             ! ocean dynamics and tracers 
    1919   USE dom_oce         ! ocean space and time domain 
     20   USE sbc_oce         ! surface boundary condition: ocean 
     21   USE dynspg_oce      ! surface pressure gradient variables 
     22   USE phycst          ! physical constants 
    2023   USE in_out_manager  ! I/O manager 
    2124   USE lib_mpp         ! distributed memory computing library 
    2225   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    23    USE dynspg_oce      ! surface pressure gradient variables 
    24    USE ocesbc          ! ocean surface boundary condition 
    25    USE phycst          ! physical constants 
    2626 
    2727   IMPLICIT NONE 
  • 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 
  • trunk/NEMO/OPA_SRC/LDF/ldfeiv.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 
    1819   USE ldftra_oce      ! ocean tracer   lateral physics 
    1920   USE phycst          ! physical constants 
    2021   USE ldfslp          ! iso-neutral slopes 
    21    USE flxrnf          !  
    2222   USE in_out_manager  ! I/O manager 
    2323   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
  • trunk/NEMO/OPA_SRC/OBC/obcvol.F90

    r699 r708  
    1212   USE oce             ! ocean dynamics and tracers  
    1313   USE dom_oce         ! ocean space and time domain  
     14   USE sbc_oce         ! surface boundary condition: ocean 
    1415   USE phycst          ! physical constants 
    1516   USE obc_oce         ! ocean open boundary conditions 
    1617   USE lib_mpp         ! for mppsum 
    1718   USE in_out_manager  ! I/O manager 
    18    USE ocesbc          ! ocean surface boundary conditions 
    1919 
    2020   IMPLICIT NONE 
  • trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r699 r708  
    4545   USE daymod                       ! date and time info 
    4646   USE dom_oce                      ! ocean space and time domain 
     47   USE sbc_ice                      ! surface boundary condition: ice 
    4748   USE in_out_manager               ! I/O manager 
    4849   USE par_oce                      ! 
     
    5152   USE oce, only: tn, un, vn 
    5253   USE ice, only: frld, hicif, hsnif 
    53    USE flx_oce, only : alb_ice ,  & ! albedo of ice 
    54                        tn_ice       ! ice surface temperature 
    5554 
    5655   IMPLICIT NONE 
  • trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90

    r699 r708  
    1717   USE oce             ! ocean dynamics and active tracers 
    1818   USE dom_oce         ! ocean space and time domain 
     19   USE sbc_oce         ! surface boundary condition: ocean 
     20   USE dynspg_oce      ! choice/control of key cpp for surface pressure gradient 
     21   USE trdmod_oce      ! ocean variables trends 
    1922   USE trdmod          ! ocean active tracers trends  
    20    USE trdmod_oce      ! ocean variables trends 
    21    USE flxrnf          ! 
    2223   USE trabbl          ! advective term in the BBL 
    2324   USE ocfzpt          ! 
     25   USE in_out_manager  ! I/O manager 
    2426   USE lib_mpp 
    2527   USE lbclnk          ! ocean lateral boundary condition (or mpp link) 
    26    USE in_out_manager  ! I/O manager 
    2728   USE diaptr          ! poleward transport diagnostics 
    28    USE dynspg_oce      ! choice/control of key cpp for surface pressure gradient 
    2929   USE prtctl          ! Print control 
    3030 
  • trunk/NEMO/OPA_SRC/TRA/traadv_cen2_jki.F90

    r699 r708  
    1818   USE oce             ! ocean dynamics and active tracers 
    1919   USE dom_oce         ! ocean space and time domain 
     20   USE dynspg_oce      ! choice/control of key cpp for surface pressure gradient 
     21   USE trdmod_oce      ! ocean variables trends 
     22   USE sbc_oce         ! surface boundary condition: ocean 
    2023   USE trdmod          ! ocean active tracers trends 
    21    USE trdmod_oce      ! ocean variables trends 
    22    USE flxrnf          ! 
    2324   USE trabbl          ! advective term in the BBL 
    2425   USE ocfzpt          ! 
     
    2728   USE in_out_manager  ! I/O manager 
    2829   USE diaptr          ! poleward transport diagnostics 
    29    USE dynspg_oce      ! choice/control of key cpp for surface pressure gradient 
    3030   USE prtctl          ! Print control 
    3131 
  • trunk/NEMO/OPA_SRC/TRA/traadv_qck.F90

    r699 r708  
    1414   USE oce             ! ocean dynamics and active tracers 
    1515   USE dom_oce         ! ocean space and time domain 
     16   USE dynspg_oce      !  
     17   USE trdmod_oce      ! ocean variables trends 
    1618   USE trdmod          ! ocean active tracers trends  
    17    USE trdmod_oce      ! ocean variables trends 
    18    USE flxrnf          ! 
    1919   USE trabbl          ! advective term in the BBL 
    20    USE ocfzpt          ! 
    2120   USE lib_mpp 
    2221   USE lbclnk          ! ocean lateral boundary condition (or mpp link) 
    2322   USE in_out_manager  ! I/O manager 
    2423   USE diaptr          ! poleward transport diagnostics 
    25    USE dynspg_oce      !  
    2624   USE prtctl          ! Print control 
    2725 
  • trunk/NEMO/OPA_SRC/TRA/tranxt.F90

    r699 r708  
    2121   USE dom_oce         ! ocean space and time domain variables  
    2222   USE zdf_oce         ! ??? 
     23   USE dynspg_oce      ! surface pressure gradient variables 
     24   USE trdmod_oce      ! ocean variables trends 
     25   USE trdmod          ! ocean active tracers trends  
     26   USE phycst 
     27   USE domvvl          ! variable volume 
     28   USE obctra          ! open boundary condition (obc_tra routine) 
    2329   USE in_out_manager  ! I/O manager 
    2430   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    25    USE obctra          ! open boundary condition (obc_tra routine) 
    26    USE trdmod          ! ocean active tracers trends  
    27    USE trdmod_oce      ! ocean variables trends 
    2831   USE prtctl          ! Print control 
    2932   USE agrif_opa_update 
    3033   USE agrif_opa_interp 
    3134 
    32    USE ocesbc          ! ocean surface boundary condition 
    33    USE domvvl          ! variable volume 
    34    USE dynspg_oce      ! surface pressure gradient variables 
    35    USE phycst 
    3635 
    3736   IMPLICIT NONE 
  • trunk/NEMO/OPA_SRC/TRA/traqsr.F90

    r699 r708  
    1717   USE oce             ! ocean dynamics and active tracers 
    1818   USE dom_oce         ! ocean space and time domain 
     19   USE sbc_oce         ! surface boundary condition: ocean 
     20   USE trc_oce         ! share SMS/Ocean variables 
     21   USE trdmod_oce      ! ocean variables trends 
    1922   USE trdmod          ! ocean active tracers trends  
    20    USE trdmod_oce      ! ocean variables trends 
    2123   USE in_out_manager  ! I/O manager 
    22    USE trc_oce         ! share SMS/Ocean variables 
    23    USE ocesbc          ! thermohaline fluxes 
    2424   USE phycst          ! physical constants 
    2525   USE prtctl          ! Print control 
  • trunk/NEMO/OPA_SRC/TRA/trasbc.F90

    r699 r708  
    1313   !!---------------------------------------------------------------------- 
    1414   USE oce             ! ocean dynamics and active tracers 
     15   USE sbc_oce         ! surface boundary condition: ocean 
    1516   USE dom_oce         ! ocean space domain variables 
    16    USE ocesbc          ! surface thermohaline fluxes 
    1717   USE phycst          ! physical constant 
    1818   USE traqsr          ! solar radiation penetration 
  • trunk/NEMO/OPA_SRC/TRA/trazdf.F90

    r699 r708  
    1414   USE dom_oce         ! ocean space and time domain variables  
    1515   USE zdf_oce         ! ocean vertical physics variables 
     16   USE sbc_oce         ! surface boundary condition: ocean 
     17   USE dynspg_oce 
    1618 
    1719   USE trazdf_exp      ! vertical diffusion: explicit (tra_zdf_exp     routine) 
     
    2628 
    2729   USE phycst 
    28    USE dynspg_oce 
    29    USE ocesbc          ! ocean surface boundary condition 
    3030   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3131   USE domvvl          ! variable volume 
  • trunk/NEMO/OPA_SRC/TRD/trdmod.F90

    r699 r708  
    1212   !!   trd_mod_init     : Initialization step 
    1313   !!---------------------------------------------------------------------- 
    14    USE phycst                  ! physical constants 
    1514   USE oce                     ! ocean dynamics and tracers variables 
    1615   USE dom_oce                 ! ocean space and time domain variables 
     
    1817   USE trdmod_oce              ! ocean variables trends 
    1918   USE ldftra_oce              ! ocean active tracers lateral physics 
     19   USE sbc_oce                 ! surface boundary condition: ocean 
     20   USE phycst                  ! physical constants 
    2021   USE trdvor                  ! ocean vorticity trends  
    2122   USE trdicp                  ! ocean bassin integral constraints properties 
    2223   USE trdmld                  ! ocean active mixed layer tracers trends  
    2324   USE in_out_manager          ! I/O manager 
    24    USE taumod                  ! surface ocean stress 
    2525 
    2626   IMPLICIT NONE 
  • trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r699 r708  
    2121   USE dom_oce         ! ocean space and time domain 
    2222   USE zdf_oce         ! ocean vertical physics 
     23   USE sbc_oce         ! surface boundary condition: ocean 
    2324   USE phycst          ! physical constants 
    24    USE taumod          ! surface stress 
    2525   USE eosbn2          ! equation of state 
    26    USE ocesbc          ! thermohaline fluxes 
    2726   USE zdfddm          ! double diffusion mixing 
    2827   USE in_out_manager  ! I/O manager 
  • trunk/NEMO/OPA_SRC/ZDF/zdftke.F90

    r699 r708  
    3131   USE dom_oce         ! ocean space and time domain 
    3232   USE zdf_oce         ! ocean vertical physics 
     33   USE sbc_oce         ! surface boundary condition: ocean 
    3334   USE phycst          ! physical constants 
    34    USE taumod          ! surface stress 
    3535   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3636   USE prtctl          ! Print control 
  • trunk/NEMO/OPA_SRC/ZDF/zdftke_jki.F90

    r699 r708  
    2020   USE dom_oce         ! ocean space and time domain 
    2121   USE zdf_oce         ! ocean vertical physics 
     22   USE sbc_oce         ! surface boundary condition: ocean 
    2223   USE zdftke          ! ??? 
     24   USE phycst          ! physical constants 
    2325   USE in_out_manager  ! I/O manager 
    2426   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    25    USE phycst          ! physical constants 
    26    USE taumod          ! surface stress 
    2727   USE prtctl          ! Print control 
    2828   USE restart         ! only for lrst_oce 
  • trunk/NEMO/OPA_SRC/cla.F90

    r699 r708  
    1919   USE oce             ! ocean dynamics and tracers variables 
    2020   USE dom_oce         ! ocean space and time domain variables  
     21   USE sbc_oce         ! surface boundary condition: ocean 
    2122   USE in_out_manager  ! I/O manager 
    2223   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    23    USE ocesbc          ! ocean surface boundary condition (fluxes) 
    2424   USE lib_mpp         ! distributed memory computing 
    2525 
  • trunk/NEMO/OPA_SRC/cla_div.F90

    r699 r708  
    1818   USE oce             ! ocean dynamics and tracers 
    1919   USE dom_oce         ! ocean space and time domain 
     20   USE sbc_oce         ! surface boundary condition: ocean 
    2021   USE in_out_manager  ! I/O manager 
    21    USE ocesbc          ! ocean surface boundary condition (fluxes) 
    2222   USE lib_mpp         ! distributed memory computing library 
    2323   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
  • trunk/NEMO/OPA_SRC/cla_dynspg.F90

    r699 r708  
    1313   USE obc_oce         ! Lateral open boundary condition 
    1414   USE sol_oce         ! solver variables 
     15   USE sbc_oce         ! surface boundary condition: ocean 
    1516   USE phycst          ! physical constants 
    16    USE ocesbc          ! ocean surface boundary condition (fluxes) 
    17    USE flxrnf          ! ocean runoffs 
    1817   USE solpcg          ! preconditionned conjugate gradient solver 
    1918   USE solsor          ! Successive Over-relaxation solver 
  • trunk/NEMO/OPA_SRC/opa.F90

    r699 r708  
    3636   !!---------------------------------------------------------------------- 
    3737   !! * Modules used 
     38   USE oce             ! dynamics and tracers variables 
    3839   USE cpl_oce         ! ocean-atmosphere-sea ice coupled exchanges 
    3940   USE dom_oce         ! ocean space domain variables 
    40    USE oce             ! dynamics and tracers variables 
     41   USE sbc_oce         ! surface boundary condition: ocean 
    4142   USE trdmod_oce      ! ocean variables trends 
    4243   USE daymod          ! calendar 
     
    6061   USE phycst          ! physical constant                  (par_cst routine) 
    6162   USE iceini          ! initialization of sea-ice         (ice_init routine) 
    62    USE cpl             ! coupled ocean/atmos.              (cpl_init routine) 
    6363   USE ocfzpt          ! ocean freezing point              (oc_fz_pt routine) 
    6464   USE trdmod          ! momentum/tracers trends       (trd_mod_init routine) 
    65    USE flxfwb          ! freshwater budget correction  (flx_fwb_init routine) 
    66    USE flxmod          ! thermohaline forcing of the ocean (flx_init routine) 
    6765 
    6866   USE diaptr          ! poleward transports           (dia_ptr_init routine) 
Note: See TracChangeset for help on using the changeset viewer.