Changeset 3524 for branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2012-11-02T07:13:40+01:00 (12 years ago)
- Location:
- branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 15 edited
-
LDF/ldfslp.F90 (modified) (1 diff)
-
SBC/albedo.F90 (modified) (1 diff)
-
SBC/sbcblk_clio.F90 (modified) (1 diff)
-
SBC/sbcice_if.F90 (modified) (1 diff)
-
SBC/sbcssr.F90 (modified) (1 diff)
-
TRA/traadv_muscl.F90 (modified) (1 diff)
-
TRA/traadv_muscl2.F90 (modified) (1 diff)
-
TRA/traadv_qck.F90 (modified) (1 diff)
-
TRA/traadv_tvd.F90 (modified) (1 diff)
-
TRA/traadv_ubs.F90 (modified) (1 diff)
-
ZDF/zdfgls.F90 (modified) (2 diffs)
-
ZDF/zdfkpp.F90 (modified) (1 diff)
-
ZDF/zdfric.F90 (modified) (1 diff)
-
ZDF/zdftke.F90 (modified) (2 diffs)
-
ZDF/zdftmx.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90
r3294 r3524 16 16 !! 'key_ldfslp' Rotation of lateral mixing tensor 17 17 !!---------------------------------------------------------------------- 18 !! ldf_slp_grif : calculates the triads of isoneutral slopes (Griffies operator)19 !! ldf_slp : calculates the slopes of neutral surface (Madec operator)20 !! ldf_slp_mxl : calculates the slopes at the base of the mixed layer (Madec operator)21 !! ldf_slp_init : initialization of the slopes computation18 !! ldf_slp_grif : calculates the triads of isoneutral slopes (Griffies operator) 19 !! ldf_slp : calculates the slopes of neutral surface (Madec operator) 20 !! ldf_slp_mxl : calculates the slopes at the base of the mixed layer (Madec operator) 21 !! ldf_slp_init : initialization of the slopes computation 22 22 !!---------------------------------------------------------------------- 23 USE oce ! ocean dynamics and tracers 24 USE dom_oce ! ocean space and time domain 25 USE ldftra_oce ! lateral diffusion: traceur 26 USE ldfdyn_oce ! lateral diffusion: dynamics 27 USE phycst ! physical constants 28 USE zdfmxl ! mixed layer depth 29 USE eosbn2 ! equation of states 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 USE in_out_manager ! I/O manager 32 USE prtctl ! Print control 33 USE wrk_nemo ! work arrays 34 USE timing ! Timing 23 USE oce ! ocean dynamics and tracers 24 USE dom_oce ! ocean space and time domain 25 USE ldftra_oce ! lateral diffusion: traceur 26 USE ldfdyn_oce ! lateral diffusion: dynamics 27 USE phycst ! physical constants 28 USE zdfmxl ! mixed layer depth 29 USE eosbn2 ! equation of states 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 USE in_out_manager ! I/O manager 32 USE prtctl ! Print control 33 USE wrk_nemo ! work arrays 34 USE timing ! Timing 35 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 35 36 36 37 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r3294 r3524 12 12 13 13 !!---------------------------------------------------------------------- 14 !! albedo_ice : albedo for ice (clear and overcast skies) 15 !! albedo_oce : albedo for ocean (clear and overcast skies) 16 !! albedo_init : initialisation of albedo computation 17 !!---------------------------------------------------------------------- 18 USE phycst ! physical constants 19 USE in_out_manager ! I/O manager 20 USE lib_mpp ! MPP library 21 USE wrk_nemo ! work arrays 14 !! albedo_ice : albedo for ice (clear and overcast skies) 15 !! albedo_oce : albedo for ocean (clear and overcast skies) 16 !! albedo_init : initialisation of albedo computation 17 !!---------------------------------------------------------------------- 18 USE phycst ! physical constants 19 USE in_out_manager ! I/O manager 20 USE lib_mpp ! MPP library 21 USE wrk_nemo ! work arrays 22 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 22 23 23 24 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r3517 r3524 19 19 !! flx_blk_declin : solar declination 20 20 !!---------------------------------------------------------------------- 21 USE oce ! ocean dynamics and tracers 22 USE dom_oce ! ocean space and time domain 23 USE phycst ! physical constants 24 USE fldread ! read input fields 25 USE sbc_oce ! Surface boundary condition: ocean fields 26 USE iom ! I/O manager library 27 USE in_out_manager ! I/O manager 28 USE lib_mpp ! distribued memory computing library 29 USE wrk_nemo ! work arrays 30 USE timing ! Timing 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 21 USE oce ! ocean dynamics and tracers 22 USE dom_oce ! ocean space and time domain 23 USE phycst ! physical constants 24 USE fldread ! read input fields 25 USE sbc_oce ! Surface boundary condition: ocean fields 26 USE iom ! I/O manager library 27 USE in_out_manager ! I/O manager 28 USE lib_mpp ! distribued memory computing library 29 USE wrk_nemo ! work arrays 30 USE timing ! Timing 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 32 33 33 34 USE albedo -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90
r3402 r3524 5 5 !! covered area using ice-if model 6 6 !!====================================================================== 7 !! History : 3.0 7 !! History : 3.0 ! 2006-06 (G. Madec) Original code 8 8 !!---------------------------------------------------------------------- 9 9 10 10 !!---------------------------------------------------------------------- 11 !! sbc_ice_if 11 !! sbc_ice_if : update sbc in ice-covered area 12 12 !!---------------------------------------------------------------------- 13 USE oce 14 USE dom_oce 15 USE phycst 16 USE eosbn2 17 USE sbc_oce 13 USE oce ! ocean dynamics and tracers 14 USE dom_oce ! ocean space and time domain 15 USE phycst ! physical constants 16 USE eosbn2 ! equation of state 17 USE sbc_oce ! surface boundary condition: ocean fields 18 18 USE sbccpl 19 USE fldread ! read input field 20 USE iom ! I/O manager library 21 USE in_out_manager ! I/O manager 22 USE lib_mpp ! MPP library 19 USE fldread ! read input field 20 USE iom ! I/O manager library 21 USE in_out_manager ! I/O manager 22 USE lib_mpp ! MPP library 23 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 23 24 24 25 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r3402 r3524 9 9 10 10 !!---------------------------------------------------------------------- 11 !! sbc_ssr : add to sbc a restoring term toward SST/SSS climatology 12 !!---------------------------------------------------------------------- 13 USE oce ! ocean dynamics and tracers 14 USE dom_oce ! ocean space and time domain 15 USE sbc_oce ! surface boundary condition 16 USE phycst ! physical constants 17 USE sbcrnf ! surface boundary condition : runoffs 18 USE fldread ! read input fields 19 USE iom ! I/O manager 20 USE in_out_manager ! I/O manager 21 USE lib_mpp ! distribued memory computing library 22 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 USE timing ! Timing 11 !! sbc_ssr : add to sbc a restoring term toward SST/SSS climatology 12 !!---------------------------------------------------------------------- 13 USE oce ! ocean dynamics and tracers 14 USE dom_oce ! ocean space and time domain 15 USE sbc_oce ! surface boundary condition 16 USE phycst ! physical constants 17 USE sbcrnf ! surface boundary condition : runoffs 18 USE fldread ! read input fields 19 USE iom ! I/O manager 20 USE in_out_manager ! I/O manager 21 USE lib_mpp ! distribued memory computing library 22 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 USE timing ! Timing 24 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 24 25 25 26 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90
r3294 r3524 14 14 !! and vertical advection trends using MUSCL scheme 15 15 !!---------------------------------------------------------------------- 16 USE oce ! ocean dynamics and active tracers 17 USE dom_oce ! ocean space and time domain 18 USE trdmod_oce ! tracers trends 19 USE trdtra ! tracers trends 20 USE in_out_manager ! I/O manager 21 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 22 USE trabbl ! tracers: bottom boundary layer 23 USE lib_mpp ! distribued memory computing 24 USE lbclnk ! ocean lateral boundary condition (or mpp link) 25 USE diaptr ! poleward transport diagnostics 26 USE trc_oce ! share passive tracers/Ocean variables 27 USE wrk_nemo ! Memory Allocation 28 USE timing ! Timing 16 USE oce ! ocean dynamics and active tracers 17 USE dom_oce ! ocean space and time domain 18 USE trdmod_oce ! tracers trends 19 USE trdtra ! tracers trends 20 USE in_out_manager ! I/O manager 21 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 22 USE trabbl ! tracers: bottom boundary layer 23 USE lib_mpp ! distribued memory computing 24 USE lbclnk ! ocean lateral boundary condition (or mpp link) 25 USE diaptr ! poleward transport diagnostics 26 USE trc_oce ! share passive tracers/Ocean variables 27 USE wrk_nemo ! Memory Allocation 28 USE timing ! Timing 29 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 29 30 30 31 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl2.F90
r3294 r3524 25 25 USE wrk_nemo ! Memory Allocation 26 26 USE timing ! Timing 27 27 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 28 28 29 29 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90
r3301 r3524 28 28 USE wrk_nemo ! Memory Allocation 29 29 USE timing ! Timing 30 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 30 31 31 32 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r3294 r3524 17 17 18 18 !!---------------------------------------------------------------------- 19 !! tra_adv_tvd : update the tracer trend with the horizontal 20 !! and vertical advection trends using a TVD scheme 21 !! nonosc : compute monotonic tracer fluxes by a nonoscillatory 22 !! algorithm 23 !!---------------------------------------------------------------------- 24 USE oce ! ocean dynamics and active tracers 25 USE dom_oce ! ocean space and time domain 26 USE trdmod_oce ! tracers trends 27 USE trdtra ! tracers trends 28 USE in_out_manager ! I/O manager 29 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 30 USE lib_mpp ! MPP library 31 USE lbclnk ! ocean lateral boundary condition (or mpp link) 32 USE diaptr ! poleward transport diagnostics 33 USE trc_oce ! share passive tracers/Ocean variables 34 USE wrk_nemo ! Memory Allocation 35 USE timing ! Timing 19 !! tra_adv_tvd : update the tracer trend with the 3D advection trends using a TVD scheme 20 !! nonosc : compute monotonic tracer fluxes by a non-oscillatory algorithm 21 !!---------------------------------------------------------------------- 22 USE oce ! ocean dynamics and active tracers 23 USE dom_oce ! ocean space and time domain 24 USE trdmod_oce ! tracers trends 25 USE trdtra ! tracers trends 26 USE in_out_manager ! I/O manager 27 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 28 USE lib_mpp ! MPP library 29 USE lbclnk ! ocean lateral boundary condition (or mpp link) 30 USE diaptr ! poleward transport diagnostics 31 USE trc_oce ! share passive tracers/Ocean variables 32 USE wrk_nemo ! Memory Allocation 33 USE timing ! Timing 34 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 36 35 37 36 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90
r3294 r3524 12 12 !! advection trends using a third order biaised scheme 13 13 !!---------------------------------------------------------------------- 14 USE oce 15 USE dom_oce 16 USE trdmod_oce 14 USE oce ! ocean dynamics and active tracers 15 USE dom_oce ! ocean space and time domain 16 USE trdmod_oce ! ocean space and time domain 17 17 USE trdtra 18 18 USE lib_mpp 19 USE lbclnk ! ocean lateral boundary condition (or mpp link) 20 USE in_out_manager ! I/O manager 21 USE diaptr ! poleward transport diagnostics 22 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 23 USE trc_oce ! share passive tracers/Ocean variables 24 USE wrk_nemo ! Memory Allocation 25 USE timing ! Timing 19 USE lbclnk ! ocean lateral boundary condition (or mpp link) 20 USE in_out_manager ! I/O manager 21 USE diaptr ! poleward transport diagnostics 22 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 23 USE trc_oce ! share passive tracers/Ocean variables 24 USE wrk_nemo ! Memory Allocation 25 USE timing ! Timing 26 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 26 27 27 28 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r3396 r3524 12 12 !! 'key_zdfgls' Generic Length Scale vertical physics 13 13 !!---------------------------------------------------------------------- 14 !! zdf_gls : update momentum and tracer Kz from a gls scheme15 !! zdf_gls_init : initialization, namelist read, and parameters control16 !! gls_rst : read/write gls restart in ocean restart file14 !! zdf_gls : update momentum and tracer Kz from a gls scheme 15 !! zdf_gls_init : initialization, namelist read, and parameters control 16 !! gls_rst : read/write gls restart in ocean restart file 17 17 !!---------------------------------------------------------------------- 18 18 USE oce ! ocean dynamics and active tracers … … 31 31 USE iom ! I/O manager library 32 32 USE timing ! Timing 33 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 33 34 34 35 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r3402 r3524 15 15 !! 'key_zdfkpp' KPP scheme 16 16 !!---------------------------------------------------------------------- 17 !! zdf_kpp : update momentum and tracer Kz from a kpp scheme18 !! zdf_kpp_init : initialization, namelist read, and parameters control19 !! tra_kpp : compute and add to the T & S trend the non-local flux20 !! trc_kpp : compute and add to the passive tracer trend the non-local flux (lk_top=T)17 !! zdf_kpp : update momentum and tracer Kz from a kpp scheme 18 !! zdf_kpp_init : initialization, namelist read, and parameters control 19 !! tra_kpp : compute and add to the T & S trend the non-local flux 20 !! trc_kpp : compute and add to the passive tracer trend the non-local flux (lk_top=T) 21 21 !!---------------------------------------------------------------------- 22 USE oce ! ocean dynamics and active tracers 23 USE dom_oce ! ocean space and time domain 24 USE zdf_oce ! ocean vertical physics 25 USE sbc_oce ! surface boundary condition: ocean 26 USE phycst ! physical constants 27 USE eosbn2 ! equation of state 28 USE zdfddm ! double diffusion mixing 29 USE in_out_manager ! I/O manager 30 USE lib_mpp ! MPP library 31 USE wrk_nemo ! work arrays 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 USE prtctl ! Print control 34 USE trdmod_oce ! ocean trends definition 35 USE trdtra ! tracers trends 36 USE timing ! Timing 22 USE oce ! ocean dynamics and active tracers 23 USE dom_oce ! ocean space and time domain 24 USE zdf_oce ! ocean vertical physics 25 USE sbc_oce ! surface boundary condition: ocean 26 USE phycst ! physical constants 27 USE eosbn2 ! equation of state 28 USE zdfddm ! double diffusion mixing 29 USE in_out_manager ! I/O manager 30 USE lib_mpp ! MPP library 31 USE wrk_nemo ! work arrays 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 USE prtctl ! Print control 34 USE trdmod_oce ! ocean trends definition 35 USE trdtra ! tracers trends 36 USE timing ! Timing 37 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 37 38 38 39 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r3294 r3524 17 17 !! 'key_zdfric' Kz = f(Ri) 18 18 !!---------------------------------------------------------------------- 19 !! zdf_ric : update momentum and tracer Kz from the Richardson19 !! zdf_ric : update momentum and tracer Kz from the Richardson 20 20 !! number computation 21 !! zdf_ric_init : initialization, namelist read, & parameters control 22 !!---------------------------------------------------------------------- 23 USE oce ! ocean dynamics and tracers variables 24 USE dom_oce ! ocean space and time domain variables 25 USE zdf_oce ! ocean vertical physics 26 USE in_out_manager ! I/O manager 27 USE lbclnk ! ocean lateral boundary condition (or mpp link) 28 USE lib_mpp ! MPP library 29 USE wrk_nemo ! work arrays 30 USE timing ! Timing 21 !! zdf_ric_init : initialization, namelist read, & parameters control 22 !!---------------------------------------------------------------------- 23 USE oce ! ocean dynamics and tracers variables 24 USE dom_oce ! ocean space and time domain variables 25 USE zdf_oce ! ocean vertical physics 26 USE in_out_manager ! I/O manager 27 USE lbclnk ! ocean lateral boundary condition (or mpp link) 28 USE lib_mpp ! MPP library 29 USE wrk_nemo ! work arrays 30 USE timing ! Timing 31 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 31 32 32 33 USE eosbn2, ONLY : nn_eos -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r3294 r3524 31 31 !! 'key_zdftke' TKE vertical physics 32 32 !!---------------------------------------------------------------------- 33 !! zdf_tke : update momentum and tracer Kz from a tke scheme34 !! tke_tke : tke time stepping: update tke at now time step (en)35 !! tke_avn : compute mixing length scale and deduce avm and avt36 !! zdf_tke_init : initialization, namelist read, and parameters control37 !! tke_rst : read/write tke restart in ocean restart file33 !! zdf_tke : update momentum and tracer Kz from a tke scheme 34 !! tke_tke : tke time stepping: update tke at now time step (en) 35 !! tke_avn : compute mixing length scale and deduce avm and avt 36 !! zdf_tke_init : initialization, namelist read, and parameters control 37 !! tke_rst : read/write tke restart in ocean restart file 38 38 !!---------------------------------------------------------------------- 39 39 USE oce ! ocean: dynamics and active tracers variables … … 52 52 USE wrk_nemo ! work arrays 53 53 USE timing ! Timing 54 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 54 55 55 56 IMPLICIT NONE -
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90
r3294 r3524 12 12 !! 'key_zdftmx' Tidal vertical mixing 13 13 !!---------------------------------------------------------------------- 14 !! zdf_tmx : global momentum & tracer Kz with tidal induced Kz 15 !! tmx_itf : Indonesian momentum & tracer Kz with tidal induced Kz 16 !!---------------------------------------------------------------------- 17 USE oce ! ocean dynamics and tracers variables 18 USE dom_oce ! ocean space and time domain variables 19 USE zdf_oce ! ocean vertical physics variables 20 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 21 USE eosbn2 ! ocean equation of state 22 USE phycst ! physical constants 23 USE prtctl ! Print control 24 USE in_out_manager ! I/O manager 25 USE iom ! I/O Manager 26 USE lib_mpp ! MPP library 27 USE wrk_nemo ! work arrays 28 USE timing ! Timing 14 !! zdf_tmx : global momentum & tracer Kz with tidal induced Kz 15 !! tmx_itf : Indonesian momentum & tracer Kz with tidal induced Kz 16 !!---------------------------------------------------------------------- 17 USE oce ! ocean dynamics and tracers variables 18 USE dom_oce ! ocean space and time domain variables 19 USE zdf_oce ! ocean vertical physics variables 20 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 21 USE eosbn2 ! ocean equation of state 22 USE phycst ! physical constants 23 USE prtctl ! Print control 24 USE in_out_manager ! I/O manager 25 USE iom ! I/O Manager 26 USE lib_mpp ! MPP library 27 USE wrk_nemo ! work arrays 28 USE timing ! Timing 29 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 29 30 30 31 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.
