Changeset 6043 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90
- Timestamp:
- 2015-12-14T10:27:28+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90
r5600 r6043 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.