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 1220 – NEMO

Changeset 1220


Ignore:
Timestamp:
2008-10-28T16:08:34+01:00 (16 years ago)
Author:
smasson
Message:

small bugfix (associated to changeset:1218) related to the declaration of nn_ico_cpl

Location:
trunk/NEMO/OPA_SRC/SBC
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r1218 r1220  
    2525   LOGICAL , PUBLIC ::   ln_ssr      = .FALSE.   !: Sea Surface restoring on SST and/or SSS       
    2626   INTEGER , PUBLIC ::   nn_ice      = 0         !: flag on ice in the surface boundary condition (=0/1/2/3) 
    27    INTEGER , PUBLIC ::   nn_fwb      = 0         !: type of FreshWater Budget control (=0/1/2) 
    28    INTEGER , PUBLIC ::   nn_ico_cpl  = 0         !: ice-ocean coupling indicator 
    29    !                                             !  = 0   LIM-3 old case 
    30    !                                             !  = 1   stresses computed using now ocean velocity 
    31    !                                             !  = 2   combination of 0 and 1 cases 
     27   INTEGER , PUBLIC ::   nn_fwb      = 0         !: FreshWater Budget:  
     28   !                                             !:  = 0 unchecked  
     29   !                                             !:  = 1 global mean of e-p-r set to zero at each nn_fsbc time step 
     30   !                                             !:  = 2 annual global mean of e-p-r set to zero 
     31  INTEGER , PUBLIC ::   nn_ico_cpl  = 0          !: ice-ocean coupling indicator 
     32   !                                             !:  = 0   LIM-3 old case 
     33   !                                             !:  = 1   stresses computed using now ocean velocity 
     34   !                                             !:  = 2   combination of 0 and 1 cases 
    3235 
    3336   !!---------------------------------------------------------------------- 

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

    r1218 r1220  
    6060    
    6161   CHARACTER(len=1) ::   cl_grid = 'C'     ! type of grid used in ice dynamics 
    62  
    63    INTEGER          ::   nn_ico_cpl = 0    ! ice-ocean coupling indicator:         !!gm   ===>> to be put in namelist 
    64    !                                       !  = 0   LIM-3 old case 
    65    !                                       !  = 1   stresses computed using now ocean velocity 
    66    !                                       !  = 2   combination of 0 and 1 cases 
    67  
    6862 
    6963   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.