Changeset 15245

Timestamp:

2021-09-10T11:56:24+02:00 (19 months ago)

Author:

frrh

Message:

Fix bug in non oasis compilation.

File:

• NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/SBC/cpl_oasis3.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/OCE/SBC/cpl_oasis3.F90

@@ -562 +562 @@
       CHARACTER(*), INTENT(in   ) ::  cd1
       INTEGER     , INTENT(  out) ::  k1,k2
+      LOGICAL     , INTENT(in   ) ::  l1
       k1 = -1 ; k2 = -1
       WRITE(numout,*) 'oasis_init_comp: Error you sould not be there...', cd1
@@ -569 +570 @@
       INTEGER     , INTENT(in   ) ::  k1
       CHARACTER(*), INTENT(in   ) ::  cd1,cd2     
-      LOGICAL     , OPTIONAL,  INTENT(in   ) ::  l1
       WRITE(numout,*) 'oasis_abort: Error you sould not be there...', cd1, cd2
    END SUBROUTINE oasis_abort