PROGRAM icosa_gcm USE icosa_init_mod, ONLY : icosa_init CALL icosa_init END PROGRAM icosa_gcm SUBROUTINE initialize_external_physics END SUBROUTINE initialize_external_physics SUBROUTINE external_physics END SUBROUTINE external_physics