Changeset 19 for vendor


Ignore:
Timestamp:
02/13/12 08:23:51 (12 years ago)
Author:
cholod
Message:

Load NEMO_TMP into vendor/nemo/current.

Location:
vendor/nemo/current
Files:
3 added
8 edited

Legend:

Unmodified
Added
Removed
  • vendor/nemo/current/DOC/TexFiles/Namelist/namrun

    r1 r19  
    22&namrun        !   parameters of the run 
    33!----------------------------------------------------------------------- 
    4    nn_no       =       0   !  job number 
     4   nn_no       =       0   !  job number (no more used...) 
    55   cn_exp      =  "ORCA2"  !  experience name  
    66   nn_it000    =       1   !  first time step 
    77   nn_itend    =    5475   !  last  time step (std 5475) 
    8    nn_date0    =  010101   !  initial calendar date yymmdd (used if nn_rstctl=1) 
     8   nn_date0    =  010101   !  date at nit_0000 (format yyyymmdd) 
     9                           !  used if ln_rstart=F or (ln_rstart=T and nn_rstctl=0 or 1) 
    910   nn_leapy    =       0   !  Leap year calendar (1) or not (0) 
    1011   ln_rstart   = .false.   !  start from rest (F) or from a restart file (T) 
    11    nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
    12                                !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
    13                                !                  = 2 calendar parameters read in the restart file 
     12   nn_rstctl   =       0   !  restart control => activated only if ln_rstart = T 
     13       !  = 0 nn_date0 read in namelist ; nn_it000 : read in namelist 
     14       !  = 1 nn_date0 read in namelist ; nn_it000 : check consistancy between namelist and restart 
     15       !  = 2 nn_date0 read in restart  ; nn_it000 : check consistancy between namelist and restart 
    1416   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
    1517   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
  • vendor/nemo/current/NEMOGCM/CONFIG/AMM12/EXP00/namelist

    r4 r19  
    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) 
  • vendor/nemo/current/NEMOGCM/CONFIG/AMM12_PISCES/EXP00/namelist

    r4 r19  
    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) 
  • vendor/nemo/current/NEMOGCM/CONFIG/GYRE/EXP00/namelist

    r4 r19  
    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) 
  • vendor/nemo/current/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist

    r4 r19  
    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) 
  • vendor/nemo/current/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist

    r4 r19  
    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) 
  • vendor/nemo/current/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist

    r4 r19  
    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) 
  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90

    r4 r19  
    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.