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.
hello.f90 in vendors/tutorial/trunk-r1/src/program – NEMO

source: vendors/tutorial/trunk-r1/src/program/hello.f90 @ 10669

Last change on this file since 10669 was 10669, checked in by nicolasmartin, 6 years ago

Import latest FCM release from Github into the repository for testing

File size: 228 bytes
Line 
1PROGRAM hello
2
3USE Hello_Constants, ONLY: hello_string
4
5IMPLICIT NONE
6INCLUDE 'hello_sub.interface'
7CHARACTER(*), PARAMETER :: this='hello'
8
9WRITE(*, '(A)') this // ': ' // TRIM(hello_string)
10CALL Hello_Sub()
11
12END PROGRAM hello
Note: See TracBrowser for help on using the repository browser.