Changeset 343
- Timestamp:
- 2005-11-16T17:19:34+01:00 (18 years ago)
- Location:
- trunk/NEMO/OFF_SRC
- Files:
-
- 46 edited
-
DOM/dom_oce.F90 (modified) (1 diff)
-
DOM/domain.F90 (modified) (1 diff)
-
DOM/domcfg.F90 (modified) (1 diff)
-
DOM/dommsk.F90 (modified) (1 diff)
-
DOM/domrea.F90 (modified) (1 diff)
-
DOM/domrea_dimg.h90 (modified) (1 diff)
-
DOM/domrea_fdir.h90 (modified) (1 diff)
-
DOM/domstp.F90 (modified) (1 diff)
-
DOM/domzgr_substitute.h90 (modified) (1 diff)
-
DYN/dynspg_fsc.F90 (modified) (1 diff)
-
DYN/dynspg_fsc_atsk.F90 (modified) (1 diff)
-
LDF/ldfeiv_substitute.h90 (modified) (1 diff)
-
LDF/ldfslp.F90 (modified) (1 diff)
-
LDF/ldftra.F90 (modified) (1 diff)
-
LDF/ldftra_c1d.h90 (modified) (1 diff)
-
LDF/ldftra_c2d.h90 (modified) (1 diff)
-
LDF/ldftra_c3d.h90 (modified) (1 diff)
-
LDF/ldftra_oce.F90 (modified) (1 diff)
-
LDF/ldftra_substitute.h90 (modified) (1 diff)
-
SBC/blk_oce.F90 (modified) (1 diff)
-
SBC/flxrnf.F90 (modified) (1 diff)
-
SBC/flxrnf_ORCA_R05.h90 (modified) (3 diffs)
-
SBC/flxrnf_ORCA_R2.h90 (modified) (3 diffs)
-
SBC/flxrnf_ORCA_R4.h90 (modified) (2 diffs)
-
SBC/ocesbc.F90 (modified) (2 diffs)
-
SBC/taumod.F90 (modified) (1 diff)
-
TRA/trabbl.F90 (modified) (2 diffs)
-
TRA/traqsr.F90 (modified) (2 diffs)
-
TRA/zpshde.F90 (modified) (2 diffs)
-
ZDF/zdf.matrixsolver.h90 (modified) (1 diff)
-
ZDF/zdf.matrixsolver.vopt.h90 (modified) (1 diff)
-
ZDF/zdf_oce.F90 (modified) (1 diff)
-
ZDF/zdfddm.F90 (modified) (2 diffs)
-
ZDF/zdfini.F90 (modified) (3 diffs)
-
ZDF/zdfmxl.F90 (modified) (2 diffs)
-
dtadyn.F90 (modified) (1 diff)
-
eosbn2.F90 (modified) (2 diffs)
-
istate.F90 (modified) (1 diff)
-
lbclnk.F90 (modified) (1 diff)
-
lib_cray.f90 (modified) (1 diff)
-
lib_isml.f90 (modified) (1 diff)
-
lib_mpp.F90 (modified) (1 diff)
-
oce.F90 (modified) (1 diff)
-
opa.F90 (modified) (3 diffs)
-
step.F90 (modified) (1 diff)
-
stpctl.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/DOM/dom_oce.F90
r325 r343 5 5 !! ** Purpose : Define in memory all the ocean space domain variables 6 6 !!---------------------------------------------------------------------- 7 !! OPA 9.0 , LODYC-IPSL (2003) 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $Header$ 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 8 10 !!---------------------------------------------------------------------- 9 11 !! * Modules used -
trunk/NEMO/OFF_SRC/DOM/domain.F90
r325 r343 32 32 # include "domzgr_substitute.h90" 33 33 !!---------------------------------------------------------------------- 34 !! OPA 9.0 , LODYC-IPSL (2003) 34 !! OPA 9.0 , LOCEAN-IPSL (2005) 35 !! $Header$ 36 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 35 37 !!---------------------------------------------------------------------- 36 38 -
trunk/NEMO/OFF_SRC/DOM/domcfg.F90
r325 r343 20 20 PUBLIC dom_cfg ! called by opa.F90 21 21 !!---------------------------------------------------------------------- 22 !! OPA 9.0 , LODYC-IPSL (2003) 22 !! OPA 9.0 , LOCEAN-IPSL (2005) 23 !! $Header$ 24 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 23 25 !!---------------------------------------------------------------------- 24 26 -
trunk/NEMO/OFF_SRC/DOM/dommsk.F90
r325 r343 23 23 !! * Substitutions 24 24 # include "vectopt_loop_substitute.h90" 25 !!--------------------------------------------------------------------------------- 26 !! OPA 9.0 , LODYC-IPSL (2003) 27 !!--------------------------------------------------------------------------------- 25 !!---------------------------------------------------------------------- 26 !! OPA 9.0 , LOCEAN-IPSL (2005) 27 !! $Header$ 28 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 29 !!---------------------------------------------------------------------- 28 30 29 31 CONTAINS -
trunk/NEMO/OFF_SRC/DOM/domrea.F90
r325 r343 21 21 PUBLIC dom_rea ! routine called by inidom.F90 22 22 !!---------------------------------------------------------------------- 23 !! OPA 9.0 , LODYC-IPSL (2003) 23 !! OPA 9.0 , LOCEAN-IPSL (2005) 24 !! $Header$ 25 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 24 26 !!---------------------------------------------------------------------- 25 27 -
trunk/NEMO/OFF_SRC/DOM/domrea_dimg.h90
r325 r343 31 31 !! ! 04-01 (J.M. Molines) MPP i/o 32 32 !!---------------------------------------------------------------------- 33 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 !! $Header$ 35 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 36 !!---------------------------------------------------------------------- 33 37 !! * Modules used 34 38 USE lib_mpp -
trunk/NEMO/OFF_SRC/DOM/domrea_fdir.h90
r325 r343 2 2 !! *** domrea_fdir.h90 *** 3 3 !!---------------------------------------------------------------------- 4 !! OPA 9.0 , LODYC-IPSL (2003) 4 !! OPA 9.0 , LOCEAN-IPSL (2005) 5 !! $Header$ 6 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 7 !!---------------------------------------------------------------------- 6 8 -
trunk/NEMO/OFF_SRC/DOM/domstp.F90
r325 r343 22 22 # include "domzgr_substitute.h90" 23 23 !!---------------------------------------------------------------------- 24 !! OPA 9.0 , LODYC-IPSL (2003) 24 !! OPA 9.0 , LOCEAN-IPSL (2005) 25 !! $Header$ 26 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 25 27 !!---------------------------------------------------------------------- 26 28 -
trunk/NEMO/OFF_SRC/DOM/domzgr_substitute.h90
r325 r343 4 4 !! ** purpose : substitute fsdep. and fse.., the vert. depth and scale 5 5 !! factors depending on the vertical coord. used, using CPP macro. 6 !!---------------------------------------------------------------------- 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $Header$ 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 6 10 !!---------------------------------------------------------------------- 7 11 #if defined key_s_coord -
trunk/NEMO/OFF_SRC/DYN/dynspg_fsc.F90
r325 r343 21 21 22 22 !!---------------------------------------------------------------------- 23 !! OPA 9.0 , LODYC-IPSL (2003) 23 !! OPA 9.0 , LOCEAN-IPSL (2005) 24 !! $Header$ 25 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 24 26 !!---------------------------------------------------------------------- 25 27 -
trunk/NEMO/OFF_SRC/DYN/dynspg_fsc_atsk.F90
r325 r343 9 9 !! j-k-i loop (j-slab) 10 10 !!---------------------------------------------------------------------- 11 !! OPA 9.0 , LODYC-IPSL (2003) 11 !! OPA 9.0 , LOCEAN-IPSL (2005) 12 !! $Header$ 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 14 !!---------------------------------------------------------------------- 13 15 !! * Modules used -
trunk/NEMO/OFF_SRC/LDF/ldfeiv_substitute.h90
r325 r343 5 5 !! ** purpose : substitute fsaei. the eddy induced velocity coeff. 6 6 !! with a constant or 1D or 2D or 3D array, using CPP macro. 7 !!---------------------------------------------------------------------- 8 !! OPA 9.0 , LOCEAN-IPSL (2005) 9 !! $Header$ 10 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 7 11 !!---------------------------------------------------------------------- 8 12 # if defined key_traldf_c3d -
trunk/NEMO/OFF_SRC/LDF/ldfslp.F90
r325 r343 46 46 # include "vectopt_loop_substitute.h90" 47 47 !!---------------------------------------------------------------------- 48 !! OPA 9.0 , LODYC-IPSL (2003) 48 !! OPA 9.0 , LOCEAN-IPSL (2005) 49 !! $Header$ 50 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 49 51 !!---------------------------------------------------------------------- 50 52 -
trunk/NEMO/OFF_SRC/LDF/ldftra.F90
r325 r343 30 30 # include "domzgr_substitute.h90" 31 31 # include "vectopt_loop_substitute.h90" 32 !!--------------------------------------------------------------------------------- 33 !! OPA 9.0 , LODYC-IPSL (2003) 34 !!--------------------------------------------------------------------------------- 32 !!---------------------------------------------------------------------- 33 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 !! $Header$ 35 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 36 !!---------------------------------------------------------------------- 35 37 36 38 CONTAINS -
trunk/NEMO/OFF_SRC/LDF/ldftra_c1d.h90
r325 r343 4 4 5 5 !!---------------------------------------------------------------------- 6 !! OPA 9.0 , LODYC-IPSL (2003) 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $Header$ 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 7 9 !!---------------------------------------------------------------------- 8 10 -
trunk/NEMO/OFF_SRC/LDF/ldftra_c2d.h90
r325 r343 4 4 5 5 !!---------------------------------------------------------------------- 6 !! OPA 9.0 , LODYC-IPSL (2003) 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $Header$ 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 7 9 !!---------------------------------------------------------------------- 8 10 -
trunk/NEMO/OFF_SRC/LDF/ldftra_c3d.h90
r325 r343 4 4 5 5 !!---------------------------------------------------------------------- 6 !! OPA 9.0 , LODYC-IPSL (2003) 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $Header$ 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 7 9 !!---------------------------------------------------------------------- 8 10 -
trunk/NEMO/OFF_SRC/LDF/ldftra_oce.F90
r325 r343 10 10 !! 9.0 ! 02-11 (G. Madec) Original code (from common.h) 11 11 !!---------------------------------------------------------------------- 12 !! OPA 9.0 , LODYC-IPSL (2003) 12 !! OPA 9.0 , LOCEAN-IPSL (2005) 13 !! $Header$ 14 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 13 15 !!---------------------------------------------------------------------- 14 16 !! * Modules used -
trunk/NEMO/OFF_SRC/LDF/ldftra_substitute.h90
r325 r343 4 4 !! ** purpose : substitute fsaht. the eddy diffusivity coeff. 5 5 !! with a constant or 1D or 2D or 3D array, using CPP macro. 6 !!---------------------------------------------------------------------- 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $Header$ 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 6 10 !!---------------------------------------------------------------------- 7 11 #if defined key_traldf_c3d -
trunk/NEMO/OFF_SRC/SBC/blk_oce.F90
r325 r343 7 7 !! 8.5 ! 02-11 (G. Madec) F90: Free form and module 8 8 !!---------------------------------------------------------------------- 9 !! OPA 9.0 , LODYC-IPSL (2003) 9 !! OPA 9.0 , LOCEAN-IPSL (2005) 10 !! $Header$ 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 12 !!---------------------------------------------------------------------- 11 13 #if defined key_flx_bulk_monthly || defined key_flx_bulk_daily -
trunk/NEMO/OFF_SRC/SBC/flxrnf.F90
r325 r343 44 44 REAL(wp), DIMENSION(jpi,jpj,2) :: & !: 45 45 rnfdta !: monthly runoff data array (kg/m2/s) 46 !!---------------------------------------------------------------------- 47 !! OPA 9.0 , LODYC-IPSL (2003) 46 47 !!---------------------------------------------------------------------- 48 !! OPA 9.0 , LOCEAN-IPSL (2005) 49 !! $Header$ 50 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 48 51 !!---------------------------------------------------------------------- 49 52 -
trunk/NEMO/OFF_SRC/SBC/flxrnf_ORCA_R05.h90
r325 r343 31 31 REAL(wp), DIMENSION(jpi,jpj,2) :: & !: 32 32 rnfdta !: monthly runoff data array (kg/m2/s) 33 33 34 !!---------------------------------------------------------------------- 34 !! OPA 9.0 , LODYC-IPSL (2003) 35 !! OPA 9.0 , LOCEAN-IPSL (2005) 36 !! $Header$ 37 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 35 38 !!---------------------------------------------------------------------- 36 39 … … 105 108 REAL(wp) :: zrnfm(jpmois, jpriv) 106 109 REAL(wp) :: zcoefr(jpi, jpj, 5) 107 !!---------------------------------------------------------------------- 108 !! OPA 8.5, LODYC-IPSL (2002) 109 !!---------------------------------------------------------------------- 110 110 111 ! ==== 111 112 ! DATA … … 828 829 DATA (inb(jr),jr=103,jpriv)/18*0/ 829 830 830 !!----------------------------------------------------------------------831 !! OPA 8.5, LODYC-IPSL (2002)832 !!----------------------------------------------------------------------833 834 831 IF( kt == nit000 ) THEN 835 832 IF(lwp) WRITE(numout,*) -
trunk/NEMO/OFF_SRC/SBC/flxrnf_ORCA_R2.h90
r325 r343 9 9 !!---------------------------------------------------------------------- 10 10 11 !!------------------------------------------------------------------- ---11 !!------------------------------------------------------------------- 12 12 !! * Local declarations 13 13 INTEGER :: kt … … 36 36 REAL(wp), DIMENSION(jpi, jpj, 5) :: & 37 37 zcoefr ! ??? 38 !!---------------------------------------------------------------------- 39 !! OPA 8.5, LODYC-IPSL (2002) 40 !!---------------------------------------------------------------------- 38 39 !!---------------------------------------------------------------------- 40 !! OPA 9.0 , LOCEAN-IPSL (2005) 41 !! $Header$ 42 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 43 !!---------------------------------------------------------------------- 41 44 ! ==== 42 45 ! DATA … … 832 835 DATA (inb(jr),jr=104,jpriv)/17*0/ 833 836 834 !!----------------------------------------------------------------------835 !! OPA 8.5, LODYC-IPSL (2002)836 !!----------------------------------------------------------------------837 838 837 IF( kt == nit000 ) THEN 839 838 IF(lwp) WRITE(numout,*) -
trunk/NEMO/OFF_SRC/SBC/flxrnf_ORCA_R4.h90
r325 r343 35 35 COMMON/zzzrnf/ zrnfm, iirnf, ijrnf, inb 36 36 37 !!---------------------------------------------------------------------- 38 !! OPA 8.5, LODYC-IPSL (2002) 39 !!---------------------------------------------------------------------- 37 !!---------------------------------------------------------------------- 38 !! OPA 9.0 , LOCEAN-IPSL (2005) 39 !! $Header$ 40 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 41 !!---------------------------------------------------------------------- 42 40 43 ! ==== 41 44 ! DATA … … 864 867 ENDIF 865 868 866 !!----------------------------------------------------------------------867 !! OPA 8.5, LODYC-IPSL (2002)868 !!----------------------------------------------------------------------869 870 869 IF( kt == nit000 ) THEN 871 870 IF(lwp) WRITE(numout,*) -
trunk/NEMO/OFF_SRC/SBC/ocesbc.F90
r325 r343 4 4 !! Ocean surface boundary conditions 5 5 !!====================================================================== 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $Header$ 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 !!---------------------------------------------------------------------- 6 10 7 11 !! * Modules used … … 21 25 emps !: evaporation - precipitation (free surface) 22 26 23 !!----------------------------------------------------------------------24 !! LIM 2.0 , UCL-LODYC-IPSL (2003)25 !!----------------------------------------------------------------------26 27 27 28 !!====================================================================== -
trunk/NEMO/OFF_SRC/SBC/taumod.F90
r325 r343 7 7 !!---------------------------------------------------------------------- 8 8 !! tau : define the surface stress for the ocean 9 !!---------------------------------------------------------------------- 10 !! OPA 9.0 , LOCEAN-IPSL (2005) 11 !! $Header$ 12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 13 !!---------------------------------------------------------------------- 10 14 !! * Modules used -
trunk/NEMO/OFF_SRC/TRA/trabbl.F90
r325 r343 11 11 !! boundary layer (diffusive only) 12 12 !! tra_bbl_init : initialization, namlist read, parameters control 13 !!---------------------------------------------------------------------- 14 !! OPA 9.0 , LOCEAN-IPSL (2005) 15 !! $Header$ 16 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 13 17 !!---------------------------------------------------------------------- 14 18 !! * Modules used … … 31 35 # include "domzgr_substitute.h90" 32 36 # include "vectopt_loop_substitute.h90" 33 !!----------------------------------------------------------------------34 !! OPA 9.0 , LODYC-IPSL (2003)35 !!----------------------------------------------------------------------36 37 37 38 CONTAINS -
trunk/NEMO/OFF_SRC/TRA/traqsr.F90
r325 r343 8 8 !! tra_qsr : trend due to the solar radiation penetration 9 9 !! tra_qsr_init : solar radiation penetration initialization 10 !!---------------------------------------------------------------------- 11 !! OPA 9.0 , LOCEAN-IPSL (2005) 12 !! $Header$ 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 14 !!---------------------------------------------------------------------- 11 15 !! * Modules used … … 24 28 REAL(wp), PUBLIC :: & !!! * penetrative solar radiation namelist * 25 29 xsi1 = 0.35_wp ! first depth of extinction 26 27 !!----------------------------------------------------------------------28 !! OPA 9.0 , LODYC-IPSL (2003)29 !!----------------------------------------------------------------------30 30 31 31 CONTAINS -
trunk/NEMO/OFF_SRC/TRA/zpshde.F90
r325 r343 10 10 !! zps_hde : Horizontal DErivative of T, S and rd at the last 11 11 !! ocean level (Z-coord. with Partial Steps) 12 !!---------------------------------------------------------------------- 13 !! OPA 9.0 , LOCEAN-IPSL (2005) 14 !! $Header$ 15 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 16 !!---------------------------------------------------------------------- 13 17 !! * Modules used … … 106 110 zmaxu1, zmaxu2, & ! " " 107 111 zmaxv1, zmaxv2 ! " " 108 !!----------------------------------------------------------------------109 !! OPA 8.5, LODYC-IPSL (2002)110 !!----------------------------------------------------------------------111 112 112 113 ! Initialization (first time-step only): compute mbatu and mbatv -
trunk/NEMO/OFF_SRC/ZDF/zdf.matrixsolver.h90
r325 r343 1 !! 2 !! ZDF.MATRIXSOLVER 3 !! ******************** 4 !! 5 !! Matrix inversion 6 !!---------------------------------------------------------------------- 7 ! solve m.x = y where m is a tri diagonal matrix ( jpk*jpk ) 8 ! 9 ! ( zwd1 zws1 0 0 0 )( zwx1 ) ( zwy1 ) 10 ! ( zwi2 zwd2 zws2 0 0 )( zwx2 ) ( zwy2 ) 11 ! ( 0 zwi3 zwd3 zws3 0 )( zwx3 )=( zwy3 ) 12 ! ( ... )( ... ) ( ... ) 13 ! ( 0 0 0 zwik zwdk )( zwxk ) ( zwyk ) 14 ! 15 ! m is decomposed in the product of an upper and lower triangular 16 ! matrix 17 ! The 3 diagonal terms are in 2d arrays: zwd, zws, zwi 18 ! The second member is in 2d array zwy 19 ! The solution is in 2d array zwx 20 ! The 2d arry zwt and zwz are work space arrays 21 ! 22 ! N.B. the starting vertical index (ikst) is equal to 1 except for 23 ! the resolution of tke matrix where surface tke value is prescribed 24 ! so that ikstrt=2. 25 !!---------------------------------------------------------------------- 26 !! OPA 8.5, LODYC-IPSL (2002) 27 !!---------------------------------------------------------------------- 1 !! 2 !! ZDF.MATRIXSOLVER 3 !! ******************** 4 !! 5 !! Matrix inversion 6 !!---------------------------------------------------------------------- 7 !! solve m.x = y where m is a tri diagonal matrix ( jpk*jpk ) 8 !! 9 !! ( zwd1 zws1 0 0 0 )( zwx1 ) ( zwy1 ) 10 !! ( zwi2 zwd2 zws2 0 0 )( zwx2 ) ( zwy2 ) 11 !! ( 0 zwi3 zwd3 zws3 0 )( zwx3 )=( zwy3 ) 12 !! ( ... )( ... ) ( ... ) 13 !! ( 0 0 0 zwik zwdk )( zwxk ) ( zwyk ) 14 !! 15 !! m is decomposed in the product of an upper and lower triangular 16 !! matrix 17 !! The 3 diagonal terms are in 2d arrays: zwd, zws, zwi 18 !! The second member is in 2d array zwy 19 !! The solution is in 2d array zwx 20 !! The 2d arry zwt and zwz are work space arrays 21 !! 22 !! N.B. the starting vertical index (ikst) is equal to 1 except for 23 !! the resolution of tke matrix where surface tke value is prescribed 24 !! so that ikstrt=2. 25 !!---------------------------------------------------------------------- 26 !!---------------------------------------------------------------------- 27 !! OPA 9.0 , LOCEAN-IPSL (2005) 28 !! $Header$ 29 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 !!---------------------------------------------------------------------- 28 31 29 32 ikstp1 = ikst + 1 -
trunk/NEMO/OFF_SRC/ZDF/zdf.matrixsolver.vopt.h90
r325 r343 1 !! 2 !! ZDF.MATRIXSOLVER 3 !! ******************** 4 !! 5 !! Matrix inversion 6 !!---------------------------------------------------------------------- 7 ! solve m.x = y where m is a tri diagonal matrix ( jpk*jpk ) 8 ! 9 ! ( zwd1 zws1 0 0 0 )( zwx1 ) ( zwy1 ) 10 ! ( zwi2 zwd2 zws2 0 0 )( zwx2 ) ( zwy2 ) 11 ! ( 0 zwi3 zwd3 zws3 0 )( zwx3 )=( zwy3 ) 12 ! ( ... )( ... ) ( ... ) 13 ! ( 0 0 0 zwik zwdk )( zwxk ) ( zwyk ) 14 ! 15 ! m is decomposed in the product of an upper and lower triangular 16 ! matrix 17 ! The 3 diagonal terms are in 2d arrays: zwd, zws, zwi 18 ! The second member is in 2d array zwy 19 ! The solution is in 2d array zwx 20 ! The 3d arry zwt is a work space array 21 ! zwy is used and then used as a work space array : its value is modified! 22 ! 23 ! N.B. the starting vertical index (ikst) is equal to 1 except for 24 ! the resolution of tke matrix where surface tke value is prescribed 25 ! so that ikstrt=2. 26 !!---------------------------------------------------------------------- 27 !! OPA 8.5, LODYC-IPSL (2002) 28 !!---------------------------------------------------------------------- 1 !! 2 !! ZDF.MATRIXSOLVER 3 !! ******************** 4 !! 5 !! Matrix inversion 6 !!---------------------------------------------------------------------- 7 !! solve m.x = y where m is a tri diagonal matrix ( jpk*jpk ) 8 !! 9 !! ( zwd1 zws1 0 0 0 )( zwx1 ) ( zwy1 ) 10 !! ( zwi2 zwd2 zws2 0 0 )( zwx2 ) ( zwy2 ) 11 !! ( 0 zwi3 zwd3 zws3 0 )( zwx3 )=( zwy3 ) 12 !! ( ... )( ... ) ( ... ) 13 !! ( 0 0 0 zwik zwdk )( zwxk ) ( zwyk ) 14 !! 15 !! m is decomposed in the product of an upper and lower triangular 16 !! matrix 17 !! The 3 diagonal terms are in 2d arrays: zwd, zws, zwi 18 !! The second member is in 2d array zwy 19 !! The solution is in 2d array zwx 20 !! The 3d arry zwt is a work space array 21 !! zwy is used and then used as a work space array : its value is modified! 22 !! 23 !! N.B. the starting vertical index (ikst) is equal to 1 except for 24 !! the resolution of tke matrix where surface tke value is prescribed 25 !! so that ikstrt=2. 26 !!---------------------------------------------------------------------- 27 !! OPA 9.0 , LOCEAN-IPSL (2005) 28 !! $Header$ 29 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 !!---------------------------------------------------------------------- 29 31 30 32 ikstp1 = ikst + 1 -
trunk/NEMO/OFF_SRC/ZDF/zdf_oce.F90
r325 r343 7 7 !!---------------------------------------------------------------------- 8 8 !! zdf_init : initialization, namelist read, and parameters control 9 !!---------------------------------------------------------------------- 10 !! OPA 9.0 , LOCEAN-IPSL (2005) 11 !! $Header$ 12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 13 !!---------------------------------------------------------------------- 10 14 !! * Modules used -
trunk/NEMO/OFF_SRC/ZDF/zdfddm.F90
r325 r343 10 10 !! zdf_ddm : compute the Ks for salinity 11 11 !! zdf_ddm_init : read namelist and control the parameters 12 !!---------------------------------------------------------------------- 13 !! OPA 9.0 , LOCEAN-IPSL (2005) 14 !! $Header$ 15 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 16 !!---------------------------------------------------------------------- 13 17 !! * Modules used … … 36 40 !! * Substitutions 37 41 # include "vectopt_loop_substitute.h90" 38 !!----------------------------------------------------------------------39 !! OPA 9.0 , LODYC-IPSL (2003)40 !!----------------------------------------------------------------------41 42 42 43 CONTAINS -
trunk/NEMO/OFF_SRC/ZDF/zdfini.F90
r325 r343 7 7 !!---------------------------------------------------------------------- 8 8 !! zdf_init : initialization, namelist read, and parameters control 9 !!---------------------------------------------------------------------- 10 !! OPA 9.0 , LOCEAN-IPSL (2005) 11 !! $Header$ 12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 13 !!---------------------------------------------------------------------- 10 14 !! * Modules used … … 20 24 !! * Routine accessibility 21 25 PUBLIC zdf_init ! routine called by opa.F90 22 !!----------------------------------------------------------------------23 !! OPA 9.0 ! LODYC-IPSL (2003)24 !!----------------------------------------------------------------------25 26 26 27 CONTAINS … … 42 43 !! * Namelist 43 44 NAMELIST/namzdf/ avt0, ln_zdfnpc 44 !!----------------------------------------------------------------------45 !! OPA 9.0, LODYC-IPSL (2003)46 !!----------------------------------------------------------------------47 45 48 46 ! Read namzdf namelist : vertical mixing parameters -
trunk/NEMO/OFF_SRC/ZDF/zdfmxl.F90
r325 r343 7 7 !!---------------------------------------------------------------------- 8 8 !! zdf_mxl : Compute the turbocline and mixed layer depths. 9 !!---------------------------------------------------------------------- 10 !! OPA 9.0 , LOCEAN-IPSL (2005) 11 !! $Header$ 12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 13 !!---------------------------------------------------------------------- 10 14 !! * Modules used … … 35 39 !! * Substitutions 36 40 # include "domzgr_substitute.h90" 37 !!----------------------------------------------------------------------38 !! OPA 9.0 , LODYC-IPSL (2003)39 !!----------------------------------------------------------------------40 41 41 42 CONTAINS -
trunk/NEMO/OFF_SRC/dtadyn.F90
r325 r343 88 88 # include "domzgr_substitute.h90" 89 89 # include "vectopt_loop_substitute.h90" 90 !!--------------------------------------------------------------------------------- 91 !! OPA 9.0 , LODYC-IPSL (2003) 92 !!--------------------------------------------------------------------------------- 90 !!---------------------------------------------------------------------- 91 !! OPA 9.0 , LOCEAN-IPSL (2005) 92 !! $Header$ 93 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 94 !!---------------------------------------------------------------------- 93 95 94 96 CONTAINS -
trunk/NEMO/OFF_SRC/eosbn2.F90
r325 r343 639 639 REAL(wp) :: zds ! temporary scalars 640 640 #endif 641 !!----------------------------------------------------------------------642 !! OPA8.5, LODYC-IPSL (2002)643 !!----------------------------------------------------------------------644 641 645 642 ! pn2 : first and last levels … … 774 771 !!---------------------------------------------------------------------- 775 772 NAMELIST/nameos/ neos, ralpha, rbeta 776 !!----------------------------------------------------------------------777 !! OPA 8.5, LODYC-IPSL (2002)778 !!----------------------------------------------------------------------779 773 780 774 ! set the initialization flag to 1 -
trunk/NEMO/OFF_SRC/istate.F90
r325 r343 27 27 # include "vectopt_loop_substitute.h90" 28 28 !!---------------------------------------------------------------------- 29 !! OPA 9.0 , LODYC-IPSL (2003) 29 !! OPA 9.0 , LOCEAN-IPSL (2005) 30 !! $Header$ 31 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 32 !!---------------------------------------------------------------------- 31 33 -
trunk/NEMO/OFF_SRC/lbclnk.F90
r325 r343 259 259 INTEGER :: ji 260 260 INTEGER :: ijt, iju 261 !!---------------------------------------------------------------------- 262 !! OPA 8.5, LODYC-IPSL (2002) 263 !!---------------------------------------------------------------------- 264 265 261 266 262 ! ! East-West boundaries 267 263 ! ! ==================== -
trunk/NEMO/OFF_SRC/lib_cray.f90
r325 r343 8 8 ! saxpy 9 9 ! isrchne 10 !!---------------------------------------------------------------------- 11 !! OPA 9.0 , LOCEAN-IPSL (2005) 12 !! $Header$ 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 !!---------------------------------------------------------------------- 15 !--------------------------------------------------------- 10 !!---------------------------------------------------------------------- 11 !! OPA 9.0 , LOCEAN-IPSL (2005) 12 !! $Header$ 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 !!---------------------------------------------------------------------- 16 15 FUNCTION sdot( I, X, J, Y, K ) 17 16 DIMENSION X(1), Y(1) -
trunk/NEMO/OFF_SRC/lib_isml.f90
r325 r343 13 13 ! folr (empty) 14 14 ! 15 !!---------------------------------------------------------------------- 16 !! OPA 9.0 , LOCEAN-IPSL (2005) 17 !! $Header$ 18 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 19 !!---------------------------------------------------------------------- 20 !--------------------------------------------------------- 15 !!---------------------------------------------------------------------- 16 !! OPA 9.0 , LOCEAN-IPSL (2005) 17 !! $Header$ 18 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 19 !!---------------------------------------------------------------------- 21 20 SUBROUTINE linrg(kn,pa,klda,painv,kldainv) 22 21 -
trunk/NEMO/OFF_SRC/lib_mpp.F90
r325 r343 3909 3909 REAL(wp), DIMENSION(jpi,4,jpni) :: znorthgloio 3910 3910 REAL(wp), DIMENSION(jpi,4) :: znorthloc 3911 !!---------------------------------------------------------------------- 3912 !! OPA 8.5, LODYC-IPSL (2002) 3913 !!---------------------------------------------------------------------- 3911 3914 3912 ! If we get in this routine it s because : North fold condition and mpp with more 3915 3913 ! than one proc across i : we deal only with the North condition -
trunk/NEMO/OFF_SRC/oce.F90
r325 r343 7 7 !! 8.5 ! 02-11 (G. Madec) F90: Free form and module 8 8 !!---------------------------------------------------------------------- 9 !! OPA 9.0 , LODYC-IPSL (2003) 9 !! OPA 9.0 , LOCEAN-IPSL (2005) 10 !! $Header$ 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 12 !!---------------------------------------------------------------------- 11 13 !! * Modules used -
trunk/NEMO/OFF_SRC/opa.F90
r325 r343 30 30 USE dtadyn ! Lecture and Interpolation of the dynamical fields 31 31 USE initrc ! Initilization of the passive tracers 32 USE prtctl_trc ! Print control passive tracers (prt_ctl_trc_init routine)33 32 USE step ! OPA time-stepping (stp routine) 34 33 … … 39 38 PUBLIC opa_model ! called by model.F90 40 39 !!---------------------------------------------------------------------- 41 !! OPA 9.0 , LODYC-IPSL (2003) 40 !! OPA 9.0 , LOCEAN-IPSL (2005) 41 !! $Header$ 42 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 42 43 !!---------------------------------------------------------------------- 43 44 … … 146 147 #if defined key_passivetrc 147 148 CALL ini_trc ! Passive tracers 148 IF( ln_ctl ) CALL prt_ctl_trc_init ! Print control149 149 #endif 150 150 -
trunk/NEMO/OFF_SRC/step.F90
r325 r343 32 32 # include "domzgr_substitute.h90" 33 33 !!---------------------------------------------------------------------- 34 !! OPA 9.0 , LODYC-IPSL (2003) 34 !! OPA 9.0 , LOCEAN-IPSL (2005) 35 !! $Header$ 36 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 35 37 !!---------------------------------------------------------------------- 36 38 -
trunk/NEMO/OFF_SRC/stpctl.F90
r325 r343 46 46 47 47 !!---------------------------------------------------------------------- 48 !! OPA 8.5, LODYC-IPSL (2002) 48 !! OPA 9.0 , LOCEAN-IPSL (2005) 49 !! $Header$ 50 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 49 51 !!---------------------------------------------------------------------- 50 52
Note: See TracChangeset
for help on using the changeset viewer.
