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 3211 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/FLO – NEMO

Ignore:
Timestamp:
2011-12-11T16:00:26+01:00 (12 years ago)
Author:
spickles2
Message:

Stephen Pickles, 11 Dec 2011

Commit to bring the rest of the DCSE NEMO development branch
in line with the latest development version. This includes
array index re-ordering of all OPA_SRC/.

Location:
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/FLO
Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90

    r2528 r3211  
    2727   REAL(wp), DIMENSION (4) ::   rcoef  = (/-1./6. , 1./2. ,-1./2. , 1./6. /)   ! 
    2828   REAL(wp), DIMENSION (3) ::   scoef1 = (/  0.5  ,  0.5  ,  1.0  /)           ! 
     29 
     30   !! * Control permutation of array indices 
     31#  include "oce_ftrans.h90" 
     32#  include "dom_oce_ftrans.h90" 
     33#  include "flo_oce_ftrans.h90" 
    2934 
    3035   !! * Substitutions 

  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/FLO/flo_oce.F90

    r2715 r3211  
    4545   INTEGER, PUBLIC  ::   nn_stockfl = 450        !: frequency of float restart file 
    4646 
     47   !! * Control permutation of array indices 
     48#  include "flo_oce_ftrans.h90" 
     49 
    4750   !!---------------------------------------------------------------------- 
    4851   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 

  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90

    r2715 r3211  
    2828   PUBLIC   flo_stp    ! routine called by step.F90 
    2929   PUBLIC   flo_init   ! routine called by opa.F90 
     30 
     31   !! * Control permutation of array indices 
     32#  include "oce_ftrans.h90" 
     33#  include "flo_oce_ftrans.h90" 
    3034 
    3135   !!---------------------------------------------------------------------- 

  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90

    r2715 r3211  
    2222 
    2323   PUBLIC   flo_blk    ! routine called by floats.F90 
     24 
     25   !! * Control permutation of array indices 
     26#  include "oce_ftrans.h90" 
     27#  include "dom_oce_ftrans.h90" 
     28#  include "flo_oce_ftrans.h90" 
    2429 
    2530   !! * Substitutions 

  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/FLO/flodom.F90

    r2528 r3211  
    2424 
    2525   PUBLIC   flo_dom    ! routine called by floats.F90 
     26 
     27   !! * Control permutation of array indices 
     28#  include "oce_ftrans.h90" 
     29#  include "dom_oce_ftrans.h90" 
     30#  include "flo_oce_ftrans.h90" 
    2631 
    2732   !! * Substitutions 

  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90

    r2715 r3211  
    3333   ! member arrays. 
    3434   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) ::   ztemp, zsal   ! 2D workspace 
     35 
     36   !! * Control permutation of array indices 
     37#  include "oce_ftrans.h90" 
     38#  include "dom_oce_ftrans.h90" 
     39#  include "flo_oce_ftrans.h90" 
    3540 
    3641   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.