New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6974 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC – NEMO

Ignore:
Timestamp:
2016-10-03T14:14:16+02:00 (8 years ago)
Author:
flavoni
Message:

minor bugfixes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r6904 r6974  
    292292         CALL iom_get( inum, 'jperio', zperio )   ;   jperio = INT( zperio ) 
    293293         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 = ', jpiglo, jpjglo, jpkglo         
    296          WRITE(cltxt2(3),*) '~~~~~~~~~~   lateral boudary type of the global domain      jperio= ', jperio 
     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 
    297298         !         
    298299      ELSE                                ! user-defined namelist 
Note: See TracChangeset for help on using the changeset viewer.