Ignore:
Timestamp:
2016-11-04T06:54:44+01:00 (4 years ago)
Author:
gm
Message:

#1692 - branch SIMPLIF_2_usrdef: e3.=dk[dep.] (discret derivative)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7110 r7188  
    239239      INTEGER  ::   ios, inum     !   -      - 
    240240      REAL(wp) ::   ziglo, zjglo, zkglo, zperio   ! local scalars 
    241       CHARACTER(len=120), DIMENSION(30) ::   cltxt, cltxt2, clnam, clbug 
    242       ! 
    243       NAMELIST/namctl/ ln_ctl  , nn_print, nn_ictls, nn_ictle,   & 
    244          &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   & 
     241      CHARACTER(len=120), DIMENSION(30) ::   cltxt, cltxt2, clnam 
     242      ! 
     243      NAMELIST/namctl/ ln_ctl   , nn_print, nn_ictls, nn_ictle,   & 
     244         &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,   & 
    245245         &             nn_timing, nn_diacfl 
    246246      NAMELIST/namcfg/ ln_read_cfg, ln_write_cfg, cp_cfg, jp_cfg, ln_use_jattr 
     
    250250      cltxt2 = '' 
    251251      clnam  = ''   
    252       clbug  = '' 
    253252      cxios_context = 'nemo' 
    254253      ! 
     
    257256      CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    258257      ! 
    259  
    260 !!gm      WRITE(clbug(1),*) ' before namelist / namctl read    nstop', nstop       
    261  
    262258      REWIND( numnam_ref )              ! Namelist namctl in reference namelist : Control prints 
    263259      READ  ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 
    264260901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 
    265  
     261      ! 
    266262      REWIND( numnam_cfg )              ! Namelist namctl in confguration namelist : Control prints 
    267263      READ  ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 
    268264902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 
    269  
    270  
    271 !!gm      WRITE(clbug(2),*) ' before namelist namcfg read    nstop', nstop       
    272  
    273265      ! 
    274266      REWIND( numnam_ref )              ! Namelist namcfg in reference namelist 
    275267      READ  ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 
    276268903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 
    277  
     269      ! 
    278270      REWIND( numnam_cfg )              ! Namelist namcfg in confguration namelist 
    279271      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
    280272904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. )    
    281273 
    282 !!gm      WRITE(clbug(3),*) ' after namelist namcfg read    nstop', nstop 
    283  
    284274      !                             !--------------------------! 
    285275      !                             !  Set global domain size  !   (control print return in cltxt2) 
    286276      !                             !--------------------------! 
    287       IF( ln_read_cfg ) THEN              ! Read sizes in configuration "mesh_mask" file 
     277      IF( ln_read_cfg ) THEN              ! Read sizes in configuration "domain_cfg" file 
    288278         CALL iom_open( 'domain_cfg', inum ) 
    289279         CALL iom_get( inum, 'jpiglo', ziglo  )   ;   jpiglo = INT( ziglo ) 
     
    292282         CALL iom_get( inum, 'jperio', zperio )   ;   jperio = INT( zperio ) 
    293283         CALL iom_close( inum ) 
    294          WRITE(cltxt2(1),*) '~~~~~~~~~~   '       
    295          WRITE(cltxt2(2),*) 'domain_cfg : domain size read in "domain_cfg" file : jp(i,j,k)glo = ' 
    296          WRITE(cltxt2(3),*) '            ', jpiglo, jpjglo, jpkglo         
    297          WRITE(cltxt2(1),*) '~~~~~~~~~~   lateral boudary type of the global domain jperio= ', jperio 
     284         WRITE(cltxt2(1),*) ' '       
     285         WRITE(cltxt2(2),*) 'domain_cfg : domain size read in "domain_cfg" file '          
     286         WRITE(cltxt2(3),*) '~~~~~~~~~~    ' 
     287         WRITE(cltxt2(4),*) '   jpiglo = ', jpiglo, ' jpjglo = ', jpjglo,  ' jpkglo = ', jpkglo 
     288         WRITE(cltxt2(5),*) '   global domain type of lateral boundary   jperio = ', jperio 
    298289         !         
    299290      ELSE                                ! user-defined namelist 
     
    404395         ! 
    405396 
    406          DO ji = 1, SIZE(clbug) 
    407             IF( TRIM(clbug (ji)) /= '' )   WRITE(numout,*) clbug(ji)      ! bug print  
    408          END DO 
    409          WRITE(numout,*) 
    410  
    411  
    412  
    413397 
    414398         WRITE(numout,*) 
     
    425409         WRITE(numout,*) 
    426410         DO ji = 1, SIZE(cltxt2) 
    427 !            IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) cltxt2(ji)     ! control print of domain size 
    428411            IF( cltxt2(ji) /= '' )   WRITE(numout,*) cltxt2(ji)     ! control print of domain size 
    429412         END DO 
Note: See TracChangeset for help on using the changeset viewer.