Ignore:
Timestamp:
2013-11-20T18:04:09+01:00 (8 years ago)
Author:
cetlod
Message:

dev_MERGE_2013 : changes to improve compilation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r4292 r4294  
    4444 
    4545   !!* Namelist nam_vvl 
    46    LOGICAL , PUBLIC                                      :: ln_vvl_zstar           = .FALSE.   ! zstar  vertical coordinate 
    47    LOGICAL , PUBLIC                                      :: ln_vvl_ztilde          = .FALSE.   ! ztilde vertical coordinate 
    48    LOGICAL , PUBLIC                                      :: ln_vvl_layer           = .FALSE.   ! level  vertical coordinate 
    49    LOGICAL , PUBLIC                                      :: ln_vvl_ztilde_as_zstar = .FALSE.   ! ztilde vertical coordinate 
    50    LOGICAL , PUBLIC                                      :: ln_vvl_zstar_at_eqtor  = .FALSE.   ! ztilde vertical coordinate 
    51    LOGICAL , PUBLIC                                      :: ln_vvl_kepe            = .FALSE.   ! kinetic/potential energy transfer 
     46   LOGICAL , PUBLIC                                      :: ln_vvl_zstar              ! zstar  vertical coordinate 
     47   LOGICAL , PUBLIC                                      :: ln_vvl_ztilde             ! ztilde vertical coordinate 
     48   LOGICAL , PUBLIC                                      :: ln_vvl_layer              ! level  vertical coordinate 
     49   LOGICAL , PUBLIC                                      :: ln_vvl_ztilde_as_zstar    ! ztilde vertical coordinate 
     50   LOGICAL , PUBLIC                                      :: ln_vvl_zstar_at_eqtor     ! ztilde vertical coordinate 
     51   LOGICAL , PUBLIC                                      :: ln_vvl_kepe               ! kinetic/potential energy transfer 
    5252   !                                                                                           ! conservation: not used yet 
    53    REAL(wp)                                              :: rn_ahe3                =  0.0_wp   ! thickness diffusion coefficient 
    54    REAL(wp)                                              :: rn_rst_e3t             =  30._wp   ! ztilde to zstar restoration timescale [days] 
    55    REAL(wp)                                              :: rn_lf_cutoff           =  5.0_wp   ! cutoff frequency for low-pass filter  [days] 
    56    REAL(wp)                                              :: rn_zdef_max            =  0.9_wp   ! maximum fractional e3t deformation 
    57    LOGICAL , PUBLIC                                      :: ln_vvl_dbg             = .FALSE.   ! debug control prints 
     53   REAL(wp)                                              :: rn_ahe3                   ! thickness diffusion coefficient 
     54   REAL(wp)                                              :: rn_rst_e3t                ! ztilde to zstar restoration timescale [days] 
     55   REAL(wp)                                              :: rn_lf_cutoff              ! cutoff frequency for low-pass filter  [days] 
     56   REAL(wp)                                              :: rn_zdef_max               ! maximum fractional e3t deformation 
     57   LOGICAL , PUBLIC                                      :: ln_vvl_dbg                ! debug control prints 
    5858 
    5959   !! * Module variables 
     
    851851      !!---------------------------------------------------------------------- 
    852852      INTEGER ::   ioptio 
     853      INTEGER ::   ios 
    853854 
    854855      NAMELIST/nam_vvl/ ln_vvl_zstar, ln_vvl_ztilde, ln_vvl_layer, ln_vvl_ztilde_as_zstar, & 
     
    857858      !!----------------------------------------------------------------------  
    858859 
    859       REWIND ( numnam )               ! Read Namelist nam_vvl : vertical coordinate 
    860       READ   ( numnam, nam_vvl ) 
     860      REWIND( numnam_ref )              ! Namelist nam_vvl in reference namelist :  
     861      READ  ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 
     862901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist', lwp ) 
     863 
     864      REWIND( numnam_cfg )              ! Namelist nam_vvl in configuration namelist : Parameters of the run 
     865      READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 
     866902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 
     867      WRITE ( numond, nam_vvl ) 
    861868 
    862869      IF(lwp) THEN                    ! Namelist print 
Note: See TracChangeset for help on using the changeset viewer.