Changeset 5836 for trunk/NEMOGCM/NEMO/OPA_SRC/FLO
- Timestamp:
- 2015-10-26T15:49:40+01:00 (8 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC/FLO
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90
r3294 r5836 4 4 !! Ocean floats : trajectory computation using a 4th order Runge-Kutta 5 5 !!====================================================================== 6 #if defined key_floats || defined key_esopa6 #if defined key_floats 7 7 !!---------------------------------------------------------------------- 8 8 !! 'key_floats' float trajectories -
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/flo_oce.F90
r4147 r5836 7 7 !! NEMO 1.0 ! 2002-11 (G. Madec, A. Bozec) F90: Free form and module 8 8 !!---------------------------------------------------------------------- 9 #if defined key_floats || defined key_esopa9 #if defined key_floats 10 10 !!---------------------------------------------------------------------- 11 11 !! 'key_floats' drifting floats -
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90
r4624 r5836 7 7 !! NEMO 1.0 ! 2002-06 (A. Bozec) F90, Free form and module 8 8 !!---------------------------------------------------------------------- 9 #if defined key_floats || defined key_esopa9 #if defined key_floats 10 10 !!---------------------------------------------------------------------- 11 11 !! 'key_floats' float trajectories -
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90
r4328 r5836 4 4 !! Ocean floats : trajectory computation 5 5 !!====================================================================== 6 #if defined key_floats || defined key_esopa6 #if defined key_floats 7 7 !!---------------------------------------------------------------------- 8 8 !! 'key_floats' float trajectories … … 125 125 126 126 ! for a isobar float zsurfz is put to zero. The vertical velocity will be zero too. 127 zsurfz = e1t(iiloc(jfl),ijloc(jfl)) *e2t(iiloc(jfl),ijloc(jfl))127 zsurfz = e1e2t(iiloc(jfl),ijloc(jfl)) 128 128 zvol = zsurfz * fse3t(iiloc(jfl),ijloc(jfl),-ikl(jfl)) 129 129 -
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/flodom.F90
r3294 r5836 4 4 !! Ocean floats : domain 5 5 !!====================================================================== 6 !! History : OPA ! 1998-07 (Y.Drillet, CLIPPER) Original code 7 !! NEMO_3.3.1 ! 2011-09 (C.Bricaud,S.Law-Chune Mercator-Ocean): 8 ! add Ariane convention, Comsecitc changes 9 !!---------------------------------------------------------------------- 10 #if defined key_floats || defined key_esopa 6 !! History : OPA ! 1998-07 (Y.Drillet, CLIPPER) Original code 7 !! NEMO 3.3 ! 2011-09 (C.Bricaud,S.Law-Chune Mercator-Ocean): add ARIANE convention + comsecitc changes 8 !!---------------------------------------------------------------------- 9 #if defined key_floats 11 10 !!---------------------------------------------------------------------- 12 11 !! 'key_floats' float trajectories -
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/florst.F90
r5217 r5836 2 2 !!====================================================================== 3 3 !! *** MODULE florst *** 4 !! 5 !! 6 !! write floats restart files 7 !! 4 !! Ocean floats : write floats restart files 8 5 !!====================================================================== 9 !! History : 10 !! 8.0 ! 99-09 (Y. Drillet) : Original code 11 !! ! 00-06 (J.-M. Molines) : Profiling floats for CLS 12 !! 8.5 ! 02-10 (A. Bozec) F90 : Free form and module 13 !! 3.2 ! 10-08 (slaw, cbricaud): netcdf outputs and others 6 !! History : OPA ! 1999-09 (Y. Drillet) : Original code 7 !! - ! 2000-06 (J.-M. Molines) : Profiling floats for CLS 8 !! NEMO 1.0 ! 2002-10 (A. Bozec) F90 : Free form and module 9 !! 3.2 ! 2010-08 (slaw, cbricaud): netcdf outputs and others 14 10 !!---------------------------------------------------------------------- 15 #if defined key_floats || defined key_esopa11 #if defined key_floats 16 12 !!---------------------------------------------------------------------- 17 13 !! 'key_floats' float trajectories 18 14 !!---------------------------------------------------------------------- 19 20 !! * Modules used21 15 USE flo_oce ! ocean drifting floats 22 16 USE dom_oce ! ocean space and time domain … … 37 31 !! NEMO/OPA 3.2 , LODYC-IPSL (2009) 38 32 !! $Id$ 39 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt33 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 40 34 !!---------------------------------------------------------------------- 41 42 35 CONTAINS 43 36 -
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90
r5217 r5836 3 3 !! *** MODULE flowri *** 4 4 !! 5 !! write floats trajectory in ascii ln_flo_ascii = T 6 !! or in netcdf ( IOM or IOSPSL ) ln_flo_ascii = F 7 !! 8 !! 5 !! Ocean floats: write floats trajectory in ascii ln_flo_ascii = T 6 !! or in netcdf ( IOM or IOSPSL ) ln_flo_ascii = F 9 7 !!====================================================================== 10 !! History : 11 !! 8.0 ! 99-09 (Y. Drillet) : Original code 12 !! ! 00-06 (J.-M. Molines) : Profiling floats for CLS 13 !! 8.5 ! 02-10 (A. Bozec) F90 : Free form and module 14 !! 3.2 ! 10-08 (slaw, cbricaud): netcdf outputs and others 15 !!---------------------------------------------------------------------- 16 #if defined key_floats || defined key_esopa 8 !! History : OPA ! 1999-09 (Y. Drillet) : Original code 9 !! - ! 2000-06 (J.-M. Molines) : Profiling floats for CLS 10 !! NEMO 1.0 ! 2002-10 (A. Bozec) F90 : Free form and module 11 !! 3.2 ! 2010-08 (slaw, cbricaud): netcdf outputs and others 12 !!---------------------------------------------------------------------- 13 #if defined key_floats 17 14 !!---------------------------------------------------------------------- 18 15 !! 'key_floats' float trajectories 19 16 !!---------------------------------------------------------------------- 20 21 !! * Modules used22 17 USE flo_oce ! ocean drifting floats 23 18 USE oce ! ocean dynamics and tracers … … 30 25 USE iom ! I/O library 31 26 32 33 27 IMPLICIT NONE 34 28 PRIVATE … … 51 45 !! NEMO/OPA 3.2 , LODYC-IPSL (2009) 52 46 !! $Id$ 53 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 54 !!---------------------------------------------------------------------- 55 47 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 48 !!---------------------------------------------------------------------- 56 49 CONTAINS 57 50
Note: See TracChangeset
for help on using the changeset viewer.