Changeset 920


Ignore:
Timestamp:
2008-05-09T13:26:34+02:00 (13 years ago)
Author:
rblod
Message:

Correct incompatibilities with Agrif (easier part), see ticket #133

Location:
trunk/NEMO/OPA_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcana.F90

    r888 r920  
    3535   REAL(wp) ::   rn_qsr0   = 0.e0   !     solar heat flux 
    3636   REAL(wp) ::   rn_emp0   = 0.e0   ! net freshwater flux 
    37    NAMELIST/namsbc_ana/ nn_tau000, rn_utau0, rn_vtau0, rn_qns0, rn_qsr0, rn_emp0 
    3837    
    3938   !! * Substitutions 
     
    6766      REAL(wp)            ::   zfacto   ! local scalar 
    6867      !!--------------------------------------------------------------------- 
     68      NAMELIST/namsbc_ana/ nn_tau000, rn_utau0, rn_vtau0, rn_qns0, rn_qsr0, rn_emp0 
    6969      ! 
    7070      IF( kt == nit000 ) THEN 
  • trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

    r918 r920  
    5555   INTEGER , PUBLIC ::   nn_ice      = 0         !: flag on ice in the surface boundary condition (=0/1/2) 
    5656   INTEGER , PUBLIC ::   nn_fwb      = 0         !: type of FreshWater Budget control (=0/1/2) 
    57    INTEGER          ::   nn_ico_cpl = 0    ! ice-ocean coupling indicator:         !!gm   ===>> to be put in namelist 
    58    !                                       !  = 0   LIM-3 old case 
    59    !                                       !  = 1   stresses computed using now ocean velocity 
    60    !                                       !  = 2   combination of 0 and 1 cases 
    61  
    62    NAMELIST/namsbc/ nn_fsbc, ln_ana, ln_flx, ln_blk_clio, ln_blk_core, ln_cpl,   & 
    63       &             nn_ice , ln_dm2dc, ln_rnf, ln_ssr, nn_fwb, nn_ico_cpl 
     57   INTEGER          ::   nn_ico_cpl  = 0         !: ice-ocean coupling indicator 
     58   !                                             !  = 0   LIM-3 old case 
     59   !                                             !  = 1   stresses computed using now ocean velocity 
     60   !                                             !  = 2   combination of 0 and 1 cases 
    6461 
    6562   INTEGER ::   nsbc   ! type of surface boundary condition (deduced from namsbc informations) 
     
    8986      INTEGER ::   icpt      ! temporary integer 
    9087      !!---------------------------------------------------------------------- 
     88      NAMELIST/namsbc/ nn_fsbc, ln_ana, ln_flx, ln_blk_clio, ln_blk_core, ln_cpl,   & 
     89         &             nn_ice , ln_dm2dc, ln_rnf, ln_ssr, nn_fwb, nn_ico_cpl 
    9190 
    9291      IF(lwp) THEN 
  • trunk/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r912 r920  
    3434   TYPE(FLD_N)       , PUBLIC ::   sn_rnf               !: information about the runoff file to be read 
    3535   TYPE(FLD_N)       , PUBLIC ::   sn_cnf               !: information about the runoff mouth file to be read 
    36    NAMELIST/namsbc_rnf/ cn_dir, nn_runoff, rn_hrnf, rn_avt_rnf, sn_rnf, sn_cnf 
    3736 
    3837   INTEGER , PUBLIC                     ::   nkrnf = 0   !: number of levels over which Kz is increased at river mouths 
     
    6766      INTEGER  ::   ierror   ! temporary integer 
    6867      !!---------------------------------------------------------------------- 
     68      NAMELIST/namsbc_rnf/ cn_dir, nn_runoff, rn_hrnf, rn_avt_rnf, sn_rnf, sn_cnf 
    6969      !                                                   !------------------! 
    7070      IF( kt == nit000 ) THEN                             !  Initialisation  ! 
  • trunk/NEMO/OPA_SRC/eosbn2.F90

    r888 r920  
    5454   REAL(wp), PUBLIC ::   ralpha = 2.0e-4   !: thermal expension coeff. (linear equation of state) 
    5555   REAL(wp), PUBLIC ::   rbeta  = 7.7e-4   !: saline  expension coeff. (linear equation of state) 
    56    NAMELIST/nameos/ neos, ralpha, rbeta 
    5756    
    5857   INTEGER ::   neos_init = 0         !: control flag for initialization 
     
    720719      !! ** Method  :   Read the namelist nameos and control the parameters 
    721720      !!---------------------------------------------------------------------- 
     721      NAMELIST/nameos/ neos, ralpha, rbeta 
    722722 
    723723      neos_init = 1               ! indicate that the initialization has been done 
Note: See TracChangeset for help on using the changeset viewer.