Changeset 2442


Ignore:
Timestamp:
2010-11-27T19:05:38+01:00 (10 years ago)
Author:
gm
Message:

v3.3beta: #765 Creation of LBC directory, move of istate.F90 in DOM

Location:
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC
Files:
1 added
1 edited
7 moved

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/opa.F90

    r2435 r2442  
    11MODULE opa 
    2    !!============================================================================== 
     2   !!====================================================================== 
    33   !!                       ***  MODULE opa   *** 
    44   !! Ocean system   : OPA ocean dynamics (including on-line tracers and sea-ice) 
    5    !!============================================================================== 
     5   !!====================================================================== 
    66   !! History :  OPA  ! 1990-10  (C. Levy, G. Madec)  Original code 
    77   !!            7.0  ! 1991-11  (M. Imbard, C. Levy, G. Madec) 
     
    179179      !! 
    180180      !!---------------------------------------------------------------------- 
    181       INTEGER :: ilocal_comm 
    182       CHARACTER(len=80),dimension(10) ::   cltxt = '' 
    183       INTEGER                         ::   ji   ! local loop indices 
     181      INTEGER ::   ji            ! dummy loop indices 
     182      INTEGER :: ilocal_comm   ! local integer 
     183      CHARACTER(len=80), DIMENSION(10) ::   cltxt = '' 
    184184      !! 
    185185      NAMELIST/namctl/ ln_ctl  , nn_print, nn_ictls, nn_ictle,   & 
     
    198198      IF( Agrif_Root() ) THEN 
    199199# if defined key_oasis3 || defined key_oasis4 
    200          CALL cpl_prism_init( ilocal_comm )      ! nemo local communicator given by oasis 
     200         CALL cpl_prism_init( ilocal_comm )   ! nemo local communicator given by oasis 
    201201# endif 
    202          CALL  init_ioclient( ilocal_comm )      ! exchange io_server nemo local communicator with the io_server 
     202         CALL  init_ioclient( ilocal_comm )   ! exchange io_server nemo local communicator with the io_server 
    203203      ENDIF 
    204204      narea = mynode( cltxt, ilocal_comm )    ! Nodes selection 
     
    206206# if defined key_oasis3 || defined key_oasis4 
    207207      IF( Agrif_Root() ) THEN 
    208          CALL cpl_prism_init( ilocal_comm )      ! nemo local communicator given by oasis 
     208         CALL cpl_prism_init( ilocal_comm )   ! nemo local communicator given by oasis 
    209209      ENDIF 
    210210      narea = mynode( cltxt, ilocal_comm )    ! Nodes selection (control print return in cltxt) 
     
    321321   SUBROUTINE opa_ctl 
    322322      !!---------------------------------------------------------------------- 
    323       !!                     ***  ROUTINE opa  *** 
    324       !! 
    325       !! ** Purpose :   Initialise logical flags that control the choice of 
    326       !!              some algorithm or control print 
    327       !! 
    328       !! ** Method  : - print namctl information 
    329       !!              - Read in namilist namflg logical flags 
    330       !!---------------------------------------------------------------------- 
    331       NAMELIST/namdyn_hpg/ ln_hpg_zco   , ln_hpg_zps   , ln_hpg_sco, ln_hpg_hel,   & 
    332          &                 ln_hpg_wdj   , ln_hpg_djc   , ln_hpg_rot, rn_gamma  ,   & 
    333          &                 ln_dynhpg_imp, nn_dynhpg_rst 
    334       !!---------------------------------------------------------------------- 
    335  
    336       IF(lwp) THEN                 ! Parameter print 
     323      !!                     ***  ROUTINE opa_ctl  *** 
     324      !! 
     325      !! ** Purpose :   control print setting  
     326      !! 
     327      !! ** Method  : - print namctl information and check some consistencies 
     328      !!---------------------------------------------------------------------- 
     329      ! 
     330      IF(lwp) THEN                  ! Parameter print 
    337331         WRITE(numout,*) 
    338332         WRITE(numout,*) 'opa_ctl: Control prints & Benchmark' 
     
    349343         WRITE(numout,*) '      benchmark parameter (0/1)       nn_bench   = ', nn_bench 
    350344      ENDIF 
    351  
     345      ! 
    352346      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    353347      nictls    = nn_ictls 
     
    358352      jsplt     = nn_jsplt 
    359353      nbench    = nn_bench 
    360  
    361       !                           ! Parameter control 
     354      !                             ! Parameter control 
    362355      ! 
    363356      IF( ln_ctl ) THEN                 ! sub-domain area indices for the control prints 
     
    397390         ENDIF 
    398391      ENDIF 
    399  
    400       IF( nbench == 1 )   THEN            ! Benchmark  
     392      ! 
     393      IF( nbench == 1 ) THEN              ! Benchmark  
    401394         SELECT CASE ( cp_cfg ) 
    402395         CASE ( 'gyre' )   ;   CALL ctl_warn( ' The Benchmark is activated ' ) 
     
    406399      ENDIF 
    407400      ! 
    408       IF( lk_c1d .AND. .NOT. lk_iomput )  & 
    409         CALL ctl_stop( ' The 1D vertical configuration must be used in conjunction',   & 
    410             &          ' with the IOM Input/Output manager. Compile with key_iomput enabled' ) 
     401      IF( lk_c1d .AND. .NOT.lk_iomput )   CALL ctl_stop( 'opa_ctl: The 1D configuration must be used ',   & 
     402         &                                               'with the IOM Input/Output manager. '        ,   & 
     403         &                                               'Compile with key_iomput enabled' ) 
    411404      ! 
    412405   END SUBROUTINE opa_ctl 
     
    430423      IF( numevo_ice /= -1 )   CLOSE( numevo_ice )   ! ice variables (temp. evolution) 
    431424      IF( numout     /=  6 )   CLOSE( numout     )   ! standard model output file 
    432       numout = 6   ! redefine numout in case it is used after this point... 
     425      ! 
     426      numout = 6                                     ! redefine numout in case it is used after this point... 
    433427      ! 
    434428   END SUBROUTINE opa_closefile 
Note: See TracChangeset for help on using the changeset viewer.