Changeset 3319


Ignore:
Timestamp:
2012-03-05T17:03:27+01:00 (9 years ago)
Author:
cetlod
Message:

trunk:minor bugs corrections, see ticket #929

Location:
trunk/NEMOGCM
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_top

    r3295 r3319  
    1616   ln_rsttr      = .false.   !  start from a restart file (T) or not (F) 
    1717   nn_rsttr      =   0       !  restart control = 0 initial time step is not compared to the restart file value 
    18                            !                  = 1 do not use the value in the restart file 
    19                            !                  = 2 calendar parameters read in the restart file 
     18                             !                  = 1 do not use the value in the restart file 
     19                             !                  = 2 calendar parameters read in the restart file 
    2020   cn_trcrst_in  = "restart_trc"   !  suffix of pass. sn_tracer restart name (input) 
    2121   cn_trcrst_out = "restart_trc"   !  suffix of pass. sn_tracer restart name (output) 
    22    ln_trcdta     =   .true. !  Initialisation from data input file (T) or not (F) 
     22   ln_trcdta     =   .true.  !  Initialisation from data input file (T) or not (F) 
     23   ln_trcdmp     =  .false.  !  add a damping termn (T) or not (F) 
    2324! 
    2425!                !    name   !           title of the field              ! initial data ! initial data ! save   ! 
     
    3435   sn_tracer(8)   = 'PHY     ' , 'Nanophytoplankton Concentration        ',  'mol-C/L' ,  .false.    ,  .true. 
    3536   sn_tracer(9)   = 'ZOO     ' , 'Microzooplankton Concentration         ',  'mol-C/L' ,  .false.    ,  .true. 
    36    sn_tracer(10)  = 'DOC     ' , 'Dissolved organic Concentration        ',  'mol-C/L' ,  .false.    ,  .true. 
     37   sn_tracer(10)  = 'DOC     ' , 'Dissolved organic Concentration        ',  'mol-C/L' ,  .true.     ,  .true. 
    3738   sn_tracer(11)  = 'PHY2    ' , 'Diatoms Concentration                  ',  'mol-C/L' ,  .false.    ,  .true. 
    3839   sn_tracer(12)  = 'ZOO2    ' , 'Mesozooplankton Concentration          ',  'mol-C/L' ,  .false.    ,  .true. 
     
    114115&namtrc_dmp    !   passive tracer newtonian damping    
    115116!----------------------------------------------------------------------- 
    116    ln_trcdmp   =  .false.  !  add a damping termn (T) or not (F) 
    117117   nn_hdmp_tr  =   -1      !  horizontal shape =-1, damping in Med and Red Seas only 
    118118                           !                   =XX, damping poleward of XX degrees (XX>0) 
  • trunk/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_top

    r3295 r3319  
    1616   ln_rsttr      = .false.   !  start from a restart file (T) or not (F) 
    1717   nn_rsttr      =   0       !  restart control = 0 initial time step is not compared to the restart file value 
    18                            !                  = 1 do not use the value in the restart file 
    19                            !                  = 2 calendar parameters read in the restart file 
     18                             !                  = 1 do not use the value in the restart file 
     19                             !                  = 2 calendar parameters read in the restart file 
    2020   cn_trcrst_in  = "restart_trc"   !  suffix of pass. sn_tracer restart name (input) 
    2121   cn_trcrst_out = "restart_trc"   !  suffix of pass. sn_tracer restart name (output) 
    22    ln_trcdta     =   .true. !  Initialisation from data input file (T) or not (F) 
     22   ln_trcdta     =   .true.  !  Initialisation from data input file (T) or not (F) 
     23   ln_trcdmp     =  .false.  !  add a damping termn (T) or not (F) 
    2324! 
    2425!                !    name   !           title of the field              ! initial data ! initial data ! save   ! 
     
    3435   sn_tracer(8)   = 'PHY     ' , 'Nanophytoplankton Concentration        ',  'mol-C/L' ,  .false.    ,  .true. 
    3536   sn_tracer(9)   = 'ZOO     ' , 'Microzooplankton Concentration         ',  'mol-C/L' ,  .false.    ,  .true. 
    36    sn_tracer(10)  = 'DOC     ' , 'Dissolved organic Concentration        ',  'mol-C/L' ,  .false.    ,  .true. 
     37   sn_tracer(10)  = 'DOC     ' , 'Dissolved organic Concentration        ',  'mol-C/L' ,  .true.     ,  .true. 
    3738   sn_tracer(11)  = 'PHY2    ' , 'Diatoms Concentration                  ',  'mol-C/L' ,  .false.    ,  .true. 
    3839   sn_tracer(12)  = 'ZOO2    ' , 'Mesozooplankton Concentration          ',  'mol-C/L' ,  .false.    ,  .true. 
     
    114115&namtrc_dmp    !   passive tracer newtonian damping    
    115116!----------------------------------------------------------------------- 
    116    ln_trcdmp   =  .false.  !  add a damping termn (T) or not (F) 
    117117   nn_hdmp_tr  =   -1      !  horizontal shape =-1, damping in Med and Red Seas only 
    118118                           !                   =XX, damping poleward of XX degrees (XX>0) 
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r3294 r3319  
    6060      !! 
    6161      NAMELIST/namtrc/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, & 
    62          &             cn_trcrst_in, cn_trcrst_out, sn_tracer, ln_trcdta 
     62         &             cn_trcrst_in, cn_trcrst_out, sn_tracer, ln_trcdta, ln_trcdmp 
    6363#if defined key_trdmld_trc  || defined key_trdtrc 
    6464      NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & 
     
    9292      END DO 
    9393      ln_trcdta = .FALSE. 
     94      ln_trcdmp = .FALSE. 
    9495 
    9596 
     
    115116         WRITE(numout,*) '   restart  for passive tracer                  ln_rsttr      = ', ln_rsttr 
    116117         WRITE(numout,*) '   control of time step for passive tracer      nn_rsttr      = ', nn_rsttr 
    117          WRITE(numout,*) '    first time step for pass. trac.             nittrc000     = ', nittrc000 
    118          WRITE(numout,*) '    frequency of outputs for passive tracers    nn_writetrc   = ', nn_writetrc   
    119          WRITE(numout,*) '   Read inputs data from file                   ln_trcdta     = ', ln_trcdta 
     118         WRITE(numout,*) '   first time step for pass. trac.              nittrc000     = ', nittrc000 
     119         WRITE(numout,*) '   frequency of outputs for passive tracers     nn_writetrc   = ', nn_writetrc   
     120         WRITE(numout,*) '   Read inputs data from file (y/n)             ln_trcdta     = ', ln_trcdta 
     121         WRITE(numout,*) '   Damping of passive tracer (y/n)              ln_trcdmp     = ', ln_trcdmp 
    120122         WRITE(numout,*) ' ' 
    121123         DO jn = 1, jptra 
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r3294 r3319  
    5656      IF( nn_timing == 1 )   CALL timing_start('trc_stp') 
    5757      ! 
    58       IF( kt == nittrc000 ) THEN 
    59                                CALL iom_close( numrtr )     ! close input  passive tracers restart file 
    60          IF( lk_trdmld_trc  )  CALL trd_mld_trc_init        ! trends: Mixed-layer 
    61       ENDIF 
     58      IF( kt == nittrc000 .AND. lk_trdmld_trc )  CALL trd_mld_trc_init    ! trends: Mixed-layer 
    6259      ! 
    63       IF( lk_vvl ) THEN                              ! update ocean volume due to ssh temporal evolution 
     60      IF( lk_vvl ) THEN                                                   ! update ocean volume due to ssh temporal evolution 
    6461         DO jk = 1, jpk 
    6562            cvol(:,:,jk) = e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) 
    6663         END DO 
    67          IF( lk_degrad )  cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:)      ! degrad option: reduction by facvol 
     64         IF( lk_degrad )  cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:)       ! degrad option: reduction by facvol 
    6865         areatot         = glob_sum( cvol(:,:,:) ) 
    6966      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.