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 1168 for trunk – NEMO

Changeset 1168 for trunk


Ignore:
Timestamp:
2008-08-11T12:21:06+02:00 (16 years ago)
Author:
rblod
Message:

Correct a bug in emp and emps sign, correct comments, see ticket #235

Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/CONFIG/GYRE/EXP00/namelist

    r1151 r1168  
    115115   ln_ssr      = .false.   !  Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 
    116116   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked                              ,  
    117                            !                     =1 annual global mean of e-p-r set to zero   , 
    118                            !                     =2 global mean of e-p-r set to zero at each nn_fsbc time step 
     117                           !                     =1 global mean of e-p-r set to zero at each nn_fsbc time step   , 
     118                           !                     =2 annual global mean of e-p-r set to zero 
    119119/ 
    120120!----------------------------------------------------------------------- 

  • trunk/CONFIG/GYRE_LOBSTER/EXP00/namelist

    r1151 r1168  
    115115   ln_ssr      = .false.   !  Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 
    116116   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked                              ,  
    117                            !                     =1 annual global mean of e-p-r set to zero   , 
    118                            !                     =2 global mean of e-p-r set to zero at each nn_fsbc time step 
     117                           !                     =1 global mean of e-p-r set to zero at each nn_fsbc time step   , 
     118                           !                     =2 annual global mean of e-p-r set to zero 
    119119/ 
    120120!----------------------------------------------------------------------- 

  • trunk/CONFIG/ORCA2_LIM/EXP00/1_namelist

    r1149 r1168  
    115115   ln_ssr      = .false.   !  Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 
    116116   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked                              ,  
    117                            !                     =1 annual global mean of e-p-r set to zero   , 
    118                            !                     =2 global mean of e-p-r set to zero at each nn_fsbc time step 
     117                           !                     =1 global mean of e-p-r set to zero at each nn_fsbc time step   , 
     118                           !                     =2 annual global mean of e-p-r set to zero 
    119119/ 
    120120!----------------------------------------------------------------------- 

  • trunk/CONFIG/ORCA2_LIM/EXP00/namelist

    r1151 r1168  
    115115   ln_ssr      = .true.    !  Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 
    116116   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked                              ,  
    117                            !                     =1 annual global mean of e-p-r set to zero   , 
    118                            !                     =2 global mean of e-p-r set to zero at each nn_fsbc time step 
     117                           !                     =1 global mean of e-p-r set to zero at each nn_fsbc time step   , 
     118                           !                     =2 annual global mean of e-p-r set to zero 
    119119/ 
    120120!----------------------------------------------------------------------- 

  • trunk/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist

    r1151 r1168  
    115115   ln_ssr      = .true.    !  Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 
    116116   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked                              ,  
    117                            !                     =1 annual global mean of e-p-r set to zero   , 
    118                            !                     =2 global mean of e-p-r set to zero at each nn_fsbc time step 
     117                           !                     =1 global mean of e-p-r set to zero at each nn_fsbc time step   , 
     118                           !                     =2 annual global mean of e-p-r set to zero 
    119119/ 
    120120!----------------------------------------------------------------------- 

  • trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r1156 r1168  
    5353      !! ** Method  :   several ways  depending on kn_fwb 
    5454      !!                =0 no control  
    55       !!                =1 annual global mean corrected from previous year 
    56       !!                =2 global mean of emp set to zero at each nn_fsbc time step 
     55      !!                =1 global mean of emp set to zero at each nn_fsbc time step 
     56      !!                =2 annual global mean corrected from previous year 
    5757      !!---------------------------------------------------------------------- 
    5858      INTEGER, INTENT( in ) ::   kt       ! ocean time-step index 
    … …  
    125125         ! correct the freshwater fluxes 
    126126         IF( MOD( kt-1, kn_fsbc ) == 0 ) THEN 
    127             emp (:,:) = emp (:,:) - empold 
    128             emps(:,:) = emps(:,:) - empold 
     127            emp (:,:) = emp (:,:) + empold 
     128            emps(:,:) = emps(:,:) + empold 
    129129         ENDIF 
    130130         ! 
Note: See TracChangeset for help on using the changeset viewer.