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 10510 – NEMO

Changeset 10510


Ignore:
Timestamp:
2019-01-14T17:13:17+01:00 (6 years ago)
Author:
clem
Message:

a bit of casualness

Location:
NEMO/trunk/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/nemogcm.F90

    r10436 r10510  
    351351         WRITE(numout,*) '                       NEMO team' 
    352352         WRITE(numout,*) '            Ocean General Circulation Model' 
    353          WRITE(numout,*) '                NEMO version 4.0  (2017) ' 
    354          WRITE(numout,*) 
    355          WRITE(numout,*) 
     353         WRITE(numout,*) '                NEMO version 4.0  (2019) ' 
     354         WRITE(numout,*) 
     355         WRITE(numout,*) "           ._      ._      ._      ._      ._    " 
     356         WRITE(numout,*) "       _.-._)`\_.-._)`\_.-._)`\_.-._)`\_.-._)`\_ " 
     357         WRITE(numout,*) 
     358         WRITE(numout,*) "           o         _,           _,             " 
     359         WRITE(numout,*) "            o      .' (        .-' /             " 
     360         WRITE(numout,*) "           o     _/..._'.    .'   /              " 
     361         WRITE(numout,*) "      (    o .-'`      ` '-./  _.'               " 
     362         WRITE(numout,*) "       )    ( o)           ;= <_         (       " 
     363         WRITE(numout,*) "      (      '-.,\\__ __.-;`\   '.        )      " 
     364         WRITE(numout,*) "       )  )       \) |`\ \)  '.   \      (   (   " 
     365         WRITE(numout,*) "      (  (           \_/       '-._\      )   )  " 
     366         WRITE(numout,*) "       )  )                        `     (   (   " 
     367         WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
     368         WRITE(numout,*) 
     369          
    356370         DO ji = 1, SIZE(cltxt) 
    357371            IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) TRIM(cltxt(ji))    ! control print of mynode 

  • NEMO/trunk/src/OCE/timing.F90

    r10425 r10510  
    235235         WRITE(numtime,*) '                             NEMO team' 
    236236         WRITE(numtime,*) '                  Ocean General Circulation Model' 
    237          WRITE(numtime,*) '                        version 3.6  (2015) ' 
     237         WRITE(numtime,*) '                        version 4.0  (2019) ' 
    238238         WRITE(numtime,*) 
    239239         WRITE(numtime,*) '                        Timing Informations ' 
Note: See TracChangeset for help on using the changeset viewer.