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

source: vendors/tutorial/trunk-r1/src/subroutine/hello_sub.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: 324 bytes
Line 
1SUBROUTINE hello_sub
2
3USE hello_constants, ONLY: hello_string
4USE hello_number, ONLY: hello_huge_number
5
6IMPLICIT NONE
7CHARACTER(*), PARAMETER :: this = 'hello_sub'
8! DEPENDS ON: hello_c.o
9EXTERNAL hello_c
10
11WRITE(*, '(A)') this // ': ' // TRIM(hello_string)
12CALL hello_huge_number()
13CALL hello_c()
14
15END SUBROUTINE hello_sub
Note: See TracBrowser for help on using the repository browser.