MODULE lmdz_fake_call CONTAINS SUBROUTINE fake_call(arg) USE dimphy IMPLICIT NONE REAL :: arg(klon) END SUBROUTINE fake_call END MODULE lmdz_fake_call