Changeset 9098 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

Timestamp:

2017-12-15T18:38:45+01:00 (6 years ago)

Author:

flavoni

Message:

change lbc_lnk in lbc_lnk_multi

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -227 +227 @@
       ENDDO
 
-      CALL lbc_lnk ( fr_iu , 'U', 1. )
-      CALL lbc_lnk ( fr_iv , 'V', 1. )
+      CALL lbc_lnk_multi( fr_iu , 'U', 1.,  fr_iv , 'V', 1. )
 
       ! set the snow+ice mass
@@ -607 +606 @@
       fmmflx(:,:) = ztmp1(:,:) !!Joakim edit
       
-      CALL lbc_lnk( emp , 'T', 1. )
-      CALL lbc_lnk( sfx , 'T', 1. )
+      CALL lbc_lnk_multi( emp , 'T', 1., sfx , 'T', 1. )
 
 ! Solar penetrative radiation and non solar surface heat flux
@@ -669 +667 @@
       ENDDO
 
-      CALL lbc_lnk ( fr_iu , 'U', 1. )
-      CALL lbc_lnk ( fr_iv , 'V', 1. )
+      CALL lbc_lnk_multi( fr_iu , 'U', 1., fr_iv , 'V', 1. )
 
       ! set the snow+ice mass