Changeset 21 for trunk


Ignore:
Timestamp:
02/13/12 10:17:16 (12 years ago)
Author:
cholod
Message:

Update of the trunk with the v3.4_r3306

Location:
trunk
Files:
8 edited
3 copied

Legend:

Unmodified
Added
Removed
  • trunk

  • trunk/NEMOGCM/CONFIG/AMM12/EXP00/namelist

    r8 r21  
    2424&namrun        !   parameters of the run 
    2525!----------------------------------------------------------------------- 
    26    nn_no       =       0   !  job number 
     26   nn_no       =       0   !  job number (no more used...) 
    2727   cn_exp      =  "AMM12"  !  experience name  
    2828   nn_it000    =       1   !  first time step 
    2929   nn_itend    =     576   !  last  time step (std 1 day = 576) 
    30    nn_date0    =  20070101 !  initial calendar date yymmdd (used if nn_rstctl=1) 
     30   nn_date0    =  20070101 !  date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
    3131   nn_leapy    =       1   !  Leap year calendar (1) or not (0) 
    3232   ln_rstart   =  .false.  !  start from rest (F) or from a restart file (T) 
    33    nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
    34                                !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
    35                                !                  = 2 calendar parameters read in the restart file 
     33   nn_rstctl   =       0   !  restart control => activated only if ln_rstart = T 
     34                           !    = 0 nn_date0 read in namelist ; nn_it000 : read in namelist 
     35                           !    = 1 nn_date0 read in namelist ; nn_it000 : check consistancy between namelist and restart 
     36                           !    = 2 nn_date0 read in restart  ; nn_it000 : check consistancy between namelist and restart 
    3637   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
    3738   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
  • trunk/NEMOGCM/CONFIG/AMM12_PISCES/EXP00/namelist

    r8 r21  
    2424&namrun        !   parameters of the run 
    2525!----------------------------------------------------------------------- 
    26    nn_no       =       0   !  job number 
     26   nn_no       =       0   !  job number (no more used...) 
    2727   cn_exp      =  "AMM12"  !  experience name  
    2828   nn_it000    =       1   !  first time step 
    2929   nn_itend    =     576   !  last  time step (std 1 day = 576) 
    30    nn_date0    =  20070101 !  initial calendar date yymmdd (used if nn_rstctl=1) 
     30   nn_date0    =  20070101 !  date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
    3131   nn_leapy    =       1   !  Leap year calendar (1) or not (0) 
    3232   ln_rstart   =  .false.  !  start from rest (F) or from a restart file (T) 
    33    nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
    34                                !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
    35                                !                  = 2 calendar parameters read in the restart file 
     33   nn_rstctl   =       0   !  restart control => activated only if ln_rstart = T 
     34                           !    = 0 nn_date0 read in namelist ; nn_it000 : read in namelist 
     35                           !    = 1 nn_date0 read in namelist ; nn_it000 : check consistancy between namelist and restart 
     36                           !    = 2 nn_date0 read in restart  ; nn_it000 : check consistancy between namelist and restart 
    3637   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
    3738   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
  • trunk/NEMOGCM/CONFIG/GYRE/EXP00/namelist

    r8 r21  
    2424&namrun        !   parameters of the run 
    2525!----------------------------------------------------------------------- 
    26    nn_no       =       0   !  job number 
     26   nn_no       =       0   !  job number (no more used...) 
    2727   cn_exp      =  "GYRE"   !  experience name  
    2828   nn_it000    =       1   !  first time step 
    2929   nn_itend    =    4320   !  last  time step 
    30    nn_date0    =  010101   !  initial calendar date yymmdd (used if nn_rstctl=1) 
     30   nn_date0    =  010101   !  date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
    3131   nn_leapy    =      30   !  Leap year calendar (1) or not (0) 
    3232   ln_rstart   = .false.   !  start from rest (F) or from a restart file (T) 
    33    nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
    34                                !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
    35                                !                  = 2 calendar parameters read in the restart file 
     33   nn_rstctl   =       0   !  restart control => activated only if ln_rstart = T 
     34                           !    = 0 nn_date0 read in namelist ; nn_it000 : read in namelist 
     35                           !    = 1 nn_date0 read in namelist ; nn_it000 : check consistancy between namelist and restart 
     36                           !    = 2 nn_date0 read in restart  ; nn_it000 : check consistancy between namelist and restart 
    3637   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
    3738   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
  • trunk/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist

    r7 r21  
    2424&namrun        !   parameters of the run 
    2525!----------------------------------------------------------------------- 
    26    nn_no       =       0   !  job number 
     26   nn_no       =       0   !  job number (no more used...) 
    2727   cn_exp      = "Agulhas" !  experience name  
    2828   nn_it000    =       1   !  first time step 
    2929   nn_itend    =   10950   !  last  time step 
    30    nn_date0    =  010101   !  initial calendar date yymmdd (used if nn_rstctl=1) 
     30   nn_date0    =  010101   !  date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
    3131   nn_leapy    =       0   !  Leap year calendar (1) or not (0) 
    3232   ln_rstart   = .false.   !  start from rest (F) or from a restart file (T) 
    33    nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
    34                                !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
    35                                !                  = 2 calendar parameters read in the restart file 
     33   nn_rstctl   =       0   !  restart control => activated only if ln_rstart = T 
     34                           !    = 0 nn_date0 read in namelist ; nn_it000 : read in namelist 
     35                           !    = 1 nn_date0 read in namelist ; nn_it000 : check consistancy between namelist and restart 
     36                           !    = 2 nn_date0 read in restart  ; nn_it000 : check consistancy between namelist and restart 
    3637   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
    3738   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
  • trunk/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist

    r8 r21  
    2424&namrun        !   parameters of the run 
    2525!----------------------------------------------------------------------- 
    26    nn_no       =       0   !  job number 
     26   nn_no       =       0   !  job number (no more used...) 
    2727   cn_exp      =  "ORCA2"  !  experience name  
    2828   nn_it000    =       1   !  first time step 
    2929   nn_itend    =    5475   !  last  time step (std 5475) 
    30    nn_date0    =  010101   !  initial calendar date yymmdd (used if nn_rstctl=1) 
     30   nn_date0    =  010101   !  date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
    3131   nn_leapy    =       0   !  Leap year calendar (1) or not (0) 
    3232   ln_rstart   = .false.   !  start from rest (F) or from a restart file (T) 
    33    nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
    34                                !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
    35                                !                  = 2 calendar parameters read in the restart file 
     33   nn_rstctl   =       0   !  restart control => activated only if ln_rstart = T 
     34                           !    = 0 nn_date0 read in namelist ; nn_it000 : read in namelist 
     35                           !    = 1 nn_date0 read in namelist ; nn_it000 : check consistancy between namelist and restart 
     36                           !    = 2 nn_date0 read in restart  ; nn_it000 : check consistancy between namelist and restart 
    3637   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
    3738   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
  • trunk/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist

    r8 r21  
    2424&namrun        !   parameters of the run 
    2525!----------------------------------------------------------------------- 
    26    nn_no       =       0   !  job number 
     26   nn_no       =       0   !  job number (no more used...) 
    2727   cn_exp      =  "PISCES"  !  experience name  
    2828   nn_it000    =       1   !  first time step 
    2929   nn_itend    =    1460   !  last  time step (std 5475) 
    30    nn_date0    =  010101   !  initial calendar date yymmdd (used if nn_rstctl=1) 
     30   nn_date0    =  010101   !  date at nit_0000 (format yyyymmdd) used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
    3131   nn_leapy    =       0   !  Leap year calendar (1) or not (0) 
    3232   ln_rstart   = .false.   !  start from rest (F) or from a restart file (T) 
    33    nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
    34                                !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
    35                                !                  = 2 calendar parameters read in the restart file 
     33   nn_rstctl   =       0   !  restart control => activated only if ln_rstart = T 
     34                           !    = 0 nn_date0 read in namelist ; nn_it000 : read in namelist 
     35                           !    = 1 nn_date0 read in namelist ; nn_it000 : check consistancy between namelist and restart 
     36                           !    = 2 nn_date0 read in restart  ; nn_it000 : check consistancy between namelist and restart 
    3637   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
    3738   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90

    r7 r21  
    4242   !!---------------------------------------------------------------------- 
    4343   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    44    !! $Id: traadv_qck.F90 3300 2012-02-08 09:54:42Z cbricaud $ 
     44   !! $Id: traadv_qck.F90 3301 2012-02-08 16:56:27Z cbricaud $ 
    4545   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4646   !!---------------------------------------------------------------------- 
     
    177177               DO ji = fs_2, fs_jpim1   ! vector opt.    
    178178                  zdir = 0.5 + SIGN( 0.5, pun(ji,jj,jk) )   ! if pun > 0 : zdir = 1 otherwise zdir = 0  
    179                   zdx  = zdir * e1t(ji,jj) + ( 1. - zdir ) * e1t(ji+1,jj) 
     179                  zdx = ( zdir * e1t(ji,jj) + ( 1. - zdir ) * e1t(ji+1,jj) ) * e2u(ji,jj) * fse3u(ji,jj,jk) 
    180180                  zwx(ji,jj,jk)  = ABS( pun(ji,jj,jk) ) * zdt / zdx    ! (0<zc_cfl<1 : Courant number on x-direction) 
    181181                  zfc(ji,jj,jk)  = zdir * ptb(ji  ,jj,jk,jn) + ( 1. - zdir ) * ptb(ji+1,jj,jk,jn)  ! FC in the x-direction for T 
     
    302302               DO ji = fs_2, fs_jpim1   ! vector opt.    
    303303                  zdir = 0.5 + SIGN( 0.5, pvn(ji,jj,jk) )   ! if pun > 0 : zdir = 1 otherwise zdir = 0  
    304                   zdx  = zdir * e2t(ji,jj) + ( 1. - zdir ) * e2t(ji,jj+1) 
     304                  zdx = ( zdir * e2t(ji,jj) + ( 1. - zdir ) * e2t(ji,jj+1) ) * e1v(ji,jj) * fse3v(ji,jj,jk) 
    305305                  zwy(ji,jj,jk)  = ABS( pvn(ji,jj,jk) ) * zdt / zdx    ! (0<zc_cfl<1 : Courant number on x-direction) 
    306306                  zfc(ji,jj,jk)  = zdir * ptb(ji,jj  ,jk,jn) + ( 1. - zdir ) * ptb(ji,jj+1,jk,jn)  ! FC in the x-direction for T 
Note: See TracChangeset for help on using the changeset viewer.