Changeset 10425 for NEMO/trunk/src/OCE/ASM

Timestamp:

2018-12-19T22:54:16+01:00 (5 years ago)

Author:

smasson

Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

Location:

NEMO/trunk/src/OCE/ASM

Files:

• asmbkg.F90 (modified) (2 diffs)
• asminc.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/ASM/asmbkg.F90

@@ -85 +85 @@
             !
             !                                      ! Define the output file        
-            CALL iom_open( c_asmbkg, inum, ldwrt = .TRUE., kiolib = jprstlib)
+            CALL iom_open( c_asmbkg, inum, ldwrt = .TRUE. )
             !
             IF( nitbkg_r == nit000 - 1 ) THEN      ! Treat special case when nitbkg = 0
@@ -123 +123 @@
             !
             !                                      ! Define the output file        
-            CALL iom_open( c_asmdin, inum, ldwrt = .TRUE., kiolib = jprstlib)
+            CALL iom_open( c_asmdin, inum, ldwrt = .TRUE. )
             !
             IF( nitdin_r == nit000 - 1 ) THEN      ! Treat special case when nitbkg = 0

NEMO/trunk/src/OCE/ASM/asminc.F90

@@ -421 +421 @@
                   END DO
                END DO
-               CALL lbc_lnk( zhdiv, 'T', 1. )   ! lateral boundary cond. (no sign change)
+               CALL lbc_lnk( 'asminc', zhdiv, 'T', 1. )   ! lateral boundary cond. (no sign change)
                !
                DO jj = 2, jpjm1