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 359 for trunk/NEMO/OPA_SRC/DIA/diafwb.F90 – NEMO

Ignore:
Timestamp:
2005-12-21T11:46:45+01:00 (18 years ago)
Author:
opalod
Message:

nemo_v1_update_033 : RB + CT : Add new surface pressure gradient algorithms

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DIA/diafwb.F90

    r247 r359  
    44   !! Ocean diagnostics: freshwater budget 
    55   !!====================================================================== 
    6 #if ( defined key_orca_r2 || defined  key_orca_r4 ) && defined key_dynspg_fsc && ! defined key_coupled 
    7    !!---------------------------------------------------------------------- 
    8    !!   "key_dynspg_fsc" and "key_orca_r2 or 4" 
     6#if ( defined key_orca_r2 || defined  key_orca_r4 ) && ! defined key_dynspg_rl && ! defined key_coupled 
     7   !!---------------------------------------------------------------------- 
     8   !!   NOT "key_dynspg_rl" and "key_orca_r2 or 4" 
    99   !!---------------------------------------------------------------------- 
    1010   !!   dia_fwb     : freshwater budget for global ocean configurations 
    … …  
    6161      !!   8.2  !  01-02  (E. Durand)  Original code 
    6262      !!   8.5  !  02-06  (G. Madec)  F90: Free form and module 
     63      !!   9.0  !  05-11  (V. Garnier) Surface pressure gradient organization 
    6364      !!---------------------------------------------------------------------- 
    6465      !! * Arguments 
Note: See TracChangeset for help on using the changeset viewer.