Changeset 14433 for NEMO/trunk/src/OCE/LDF/ldfdyn.F90
- Timestamp:
- 2021-02-11T09:06:49+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LDF/ldfdyn.F90
r14201 r14433 412 412 ENDIF 413 413 ! 414 CALL lbc_lnk _multi( 'ldfdyn', ahmt, 'T', 1.0_wp, ahmf, 'F', 1.0_wp )414 CALL lbc_lnk( 'ldfdyn', ahmt, 'T', 1.0_wp, ahmf, 'F', 1.0_wp ) 415 415 ! 416 416 ! … … 444 444 END DO 445 445 ! 446 CALL lbc_lnk _multi( 'ldfdyn', dtensq, 'T', 1.0_wp ) ! lbc_lnk on dshesq not needed446 CALL lbc_lnk( 'ldfdyn', dtensq, 'T', 1.0_wp ) ! lbc_lnk on dshesq not needed 447 447 ! 448 448 DO jk = 1, jpkm1 … … 495 495 ENDIF 496 496 ! 497 CALL lbc_lnk _multi( 'ldfdyn', ahmt, 'T', 1.0_wp , ahmf, 'F', 1.0_wp )497 CALL lbc_lnk( 'ldfdyn', ahmt, 'T', 1.0_wp , ahmf, 'F', 1.0_wp ) 498 498 ! 499 499 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.