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 5836 for trunk/NEMOGCM/NEMO/OPA_SRC/FLO – NEMO

Ignore:
Timestamp:
2015-10-26T15:49:40+01:00 (8 years ago)
Author:
cetlod
Message:

merge the simplification branch onto the trunk, see ticket #1612

Location:
trunk/NEMOGCM/NEMO/OPA_SRC/FLO
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90

    r3294 r5836  
    44   !! Ocean floats :   trajectory computation using a 4th order Runge-Kutta 
    55   !!====================================================================== 
    6 #if   defined key_floats   ||   defined key_esopa 
     6#if   defined key_floats 
    77   !!---------------------------------------------------------------------- 
    88   !!   'key_floats'                                     float trajectories 
  • trunk/NEMOGCM/NEMO/OPA_SRC/FLO/flo_oce.F90

    r4147 r5836  
    77   !!   NEMO      1.0  ! 2002-11  (G. Madec, A. Bozec)  F90: Free form and module 
    88   !!---------------------------------------------------------------------- 
    9 #if   defined key_floats   ||   defined key_esopa 
     9#if   defined key_floats 
    1010   !!---------------------------------------------------------------------- 
    1111   !!   'key_floats'                                        drifting floats 
  • trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90

    r4624 r5836  
    77   !!   NEMO     1.0  ! 2002-06  (A. Bozec)  F90, Free form and module 
    88   !!---------------------------------------------------------------------- 
    9 #if   defined key_floats   ||   defined key_esopa 
     9#if   defined key_floats 
    1010   !!---------------------------------------------------------------------- 
    1111   !!   'key_floats'                                     float trajectories 
  • trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90

    r4328 r5836  
    44   !! Ocean floats :   trajectory computation 
    55   !!====================================================================== 
    6 #if   defined key_floats   ||   defined key_esopa 
     6#if   defined key_floats 
    77   !!---------------------------------------------------------------------- 
    88   !!   'key_floats'                                     float trajectories 
     
    125125 
    126126            ! 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)) 
    128128            zvol   = zsurfz * fse3t(iiloc(jfl),ijloc(jfl),-ikl(jfl)) 
    129129 
  • trunk/NEMOGCM/NEMO/OPA_SRC/FLO/flodom.F90

    r3294 r5836  
    44   !! Ocean floats :   domain 
    55   !!====================================================================== 
    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 
    1110   !!---------------------------------------------------------------------- 
    1211   !!   'key_floats'                                     float trajectories 
  • trunk/NEMOGCM/NEMO/OPA_SRC/FLO/florst.F90

    r5217 r5836  
    22   !!====================================================================== 
    33   !!                       ***  MODULE  florst  *** 
    4    !! 
    5    !! 
    6    !! write floats restart files 
    7    !! 
     4   !! Ocean floats : write floats restart files 
    85   !!====================================================================== 
    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  
    1410   !!---------------------------------------------------------------------- 
    15 #if   defined key_floats   ||   defined key_esopa 
     11#if   defined key_floats 
    1612   !!---------------------------------------------------------------------- 
    1713   !!   'key_floats'                                     float trajectories 
    1814   !!---------------------------------------------------------------------- 
    19  
    20    !! * Modules used 
    2115   USE flo_oce         ! ocean drifting floats 
    2216   USE dom_oce         ! ocean space and time domain 
     
    3731   !! NEMO/OPA 3.2 , LODYC-IPSL  (2009) 
    3832   !! $Id$ 
    39    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
     33   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4034   !!---------------------------------------------------------------------- 
    41  
    4235CONTAINS 
    4336 
  • trunk/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90

    r5217 r5836  
    33   !!                       ***  MODULE  flowri  *** 
    44   !! 
    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            
    97   !!====================================================================== 
    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 
    1714   !!---------------------------------------------------------------------- 
    1815   !!   'key_floats'                                     float trajectories 
    1916   !!---------------------------------------------------------------------- 
    20  
    21    !! * Modules used 
    2217   USE flo_oce         ! ocean drifting floats 
    2318   USE oce             ! ocean dynamics and tracers 
     
    3025   USE iom             ! I/O library 
    3126 
    32  
    3327   IMPLICIT NONE 
    3428   PRIVATE 
     
    5145   !! NEMO/OPA 3.2 , LODYC-IPSL  (2009) 
    5246   !! $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   !!---------------------------------------------------------------------- 
    5649CONTAINS 
    5750 
Note: See TracChangeset for help on using the changeset viewer.